September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-4.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-4.hs
@ -1,2 +1,5 @@
-fib :: Integer -> Integer
-fib n = fst $ foldl (\(a, b) _ -> (b, a + b)) (0, 1) [1 .. n]
+fib n = go n 0 1
+  where
+    go n a b
+      | n == 0 = a
+      | otherwise = go (n - 1) b (a + b)