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

3 lines
91 B
Haskell
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
powerset [] = [[]]
powerset (head:tail) = acc ++ map (head:) acc where acc = powerset tail