Skip to content

Instantly share code, notes, and snippets.

@matoous

matoous/Permutate.hs

Created June 6, 2018 05:57
Show Gist options
  • Save matoous/187396227fb29d99b330c5980f68b8da to your computer and use it in GitHub Desktop.
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