Choose.hs

choose :: Int -> [a] -> [[a]]
choose 0 _ = [[]]
choose _ [] = []
choose k (x:xs) | k > 0 = map (x:) (choose (k - 1) xs) ++ choose k xs
                | otherwise = []