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

powerSet :: [a] -> [[a]]
powerSet = foldr (\x acc -> acc ++ map (x:) acc) [[]]
2016 Update 2016-12-05 22:15:40 +01:00			`powerSet :: [a] -> [[a]]`
September 2017 Update 2017-09-23 10:01:46 +02:00			`powerSet = foldr (\x acc -> acc ++ map (x:) acc) [[]]`