June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-8.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-8.hs
@ -1 +1,5 @@
-fib = 0 : scanl (+) 1 fib
+fib n = go n 0 1
+  where
+    go n a b
+      | n == 0 = a
+      | otherwise = go (n - 1) b (a + b)