RosettaCodeData/Task/Power-set/Haskell/power-set-2.hs
2023-07-01 13:44:08 -04:00

2 lines
91 B
Haskell

powerset [] = [[]]
powerset (head:tail) = acc ++ map (head:) acc where acc = powerset tail