bolo1729

### 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

-- 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