Łukasz Bolikowski bolo1729

Principal Data Scientist at Boston Consulting Group. Before that, Assistant Professor at ICM, University of Warsaw. Public repositories are my own.

bolo1729 / gist:38e0faa840b342cc55cf

Created April 17, 2015 12:08

	### Keybase proof

	I hereby claim:

	* I am bolo1729 on github.
	* I am bolikowski (https://keybase.io/bolikowski) on keybase.
	* I have a public key whose fingerprint is B5D6 DBB6 BA86 8F0B 6C25 F73C CEC9 5811 FE9E CD71

	To claim this, I am signing this object:

bolo1729 / 8dice.hs

Last active August 29, 2015 14:02

Correct link

	-- A solution for this problem: https://plus.google.com/101293528673868443204/posts/BCspgEwvkWY
	import Control.Monad (replicateM)
	import Data.List (group, sort)

	combinations = replicateM 8 [1..6]

	signature :: Ord a => [a] -> [Int]
	signature = sort . map length . group . sort

	condP1 :: [Int] -> Bool