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

3 lines
91 B
Haskell
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
powerset [] = [[]]
powerset (head:tail) = acc ++ map (head:) acc where acc = powerset tail