09/07/17 23:49:23
>>494
>>496
import Data.List (sort)
h :: (Ord a) => Int -> [a] -> [[a]]
h 1 xs = map (\ls -> [ls]) xs
h n xs = concat $ map (\x -> map (\ys -> x:ys) (h (n-1) (filter (>= x) xs))) xs
t496 :: Int -> [[Int]]
t496 n = filter ((==10) . sum) $ h n [1..9]
main = print $ t496 3