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