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-13.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-13.hs
@ -1 +1,9 @@
-f (n,(a,b)) = (2*n,(a*a+b*b,2*a*b+b*b))     -- iterate f (1,(0,1)) ; b is nth
+import Data.List (foldl') --'
+
+fib :: Integer -> Integer
+fib n =
+  fst $
+  foldl' --'
+    (\(a, b) _ -> (b, a + b))
+    (0, 1)
+    [1 .. n]