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

3 lines
81 B
Haskell
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
powerSet :: [a] -> [[a]]
powerSet = foldr ((mappend <*>) . fmap . (:)) (pure [])