fetfrum · December 28, 2019 05:47
diff --git a/Permutations of list, Haskell b/Permutations of list, Haskell
 perms :: [a] -> [[a]]
 perms [] = [[]]
 perms xs = [ y:zs | (y,ys) <- select xs, zs <- perms ys]
  where select []     = []
        select (x:xs) = (x,xs) : [ (y,x:ys) | (y,ys) <- select xs ]
	perms :: [a] -> [[a]]
	perms [] = [[]]
	perms xs = [ y:zs \| (y,ys) <- select xs, zs <- perms ys]
	where select [] = []
	select (x:xs) = (x,xs) : [ (y,x:ys) \| (y,ys) <- select xs ]