matoous/Permutate.hs

Created June 6, 2018 05:57

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/187396227fb29d99b330c5980f68b8da.js"></script>
Save matoous/187396227fb29d99b330c5980f68b8da to your computer and use it in GitHub Desktop.

Download ZIP

Raw

Permutate.hs

	permutate :: (Eq a) => [a] -> [[a]]
	permutate [] = [[]]
	permutate l = [a:x \| a <- l, x <- permutate $ filter (\x -> x /= a) l]

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