path: root/h26.hs

combination :: Int -> [a] -> [[a]]
combination 0 _ = [[]]
combination _ [] = []
combination c (x:xs) = (map (x:) (combination (c-1) xs)) ++ (combination c xs)