RosettaCodeData/Task/Power-set/Haskell/power-set-3.hs

3 lines
79 B
Haskell

powerSet :: [a] -> [[a]]
powerSet = foldr (\x acc -> acc ++ map (x:) acc) [[]]