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

mirror of https://github.com/acmeism/RosettaCodeData.git
powerset [] = [[]]
powerset (head:tail) = acc ++ map (head:) acc where acc = powerset tail
	`powerset [] = [[]]`
	`powerset (head:tail) = acc ++ map (head:) acc where acc = powerset tail`