Correct link

8dice.hs

-- 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
condP1 = (==) [2, 2, 2, 2] . signature

condP2 :: [Int] -> Bool
condP2 = (==) [4, 4] . signature

main :: IO ()
main = do
        print (length combinations)
        print (length (filter condP1 combinations))
        print (length (filter condP2 combinations))