2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Permutations-by-swapping/Haskell/permutations-by-swapping.hs
+++ b/Task/Permutations-by-swapping/Haskell/permutations-by-swapping.hs
@ -4,7 +4,7 @@ s_permutations = flip zip (cycle [1, -1]) . (foldl aux [[]])
          (f,item) <- zip (cycle [reverse,id]) items
          f (insertEv x item)
        insertEv x [] = [[x]]
-        insertEv x l@(y:ys) = (x:l) : map (y:) $ insertEv x ys
+        insertEv x l@(y:ys) = (x:l) : map (y:) (insertEv x ys)

 main :: IO ()
 main = do