matoous/Powerset.hs

Created June 6, 2018 06:01

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/matoous/0908ed7a26a954caf6515770114ac0e0.js"></script>
Save matoous/0908ed7a26a954caf6515770114ac0e0 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

Powerset.hs

	powerset :: [a] -> [[a]]
	powerset [] = [[]]
	powerset (a:b) = map (a:) p ++ p
	where p = powerset b

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment