3 lines
81 B
Haskell
3 lines
81 B
Haskell
|
powerSet :: [a] -> [[a]]
|
||
|
|
powerSet = foldr ((mappend <*>) . fmap . (:)) (pure [])
|