RosettaCodeData/Task/Power-set/Haskell/power-set-2.hs
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

2 lines
91 B
Haskell

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