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