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-Derangements/Haskell/permutations-derangements-1.hs
+++ b/Task/Permutations-Derangements/Haskell/permutations-derangements-1.hs
@ -5,9 +5,8 @@ import Data.List
 derangements xs = filter (and . zipWith (/=) xs) $ permutations xs

 -- Compute the number of derangements of n elements
-subfactorial 0 = 0
+subfactorial 0 = 1
 subfactorial 1 = 0
-subfactorial 2 = 1
 subfactorial n = (n-1) * (subfactorial (n-1) + subfactorial (n-2))

 main = do