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/Fibonacci-sequence/Haskell/fibonacci-sequence-3.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-3.hs
@ -1 +1,5 @@
-fib = 0 : scanl (+) 1 fib
+fib x = if x < 1 then 0
+                 else if x==1 then 1
+                 else fibs!!(x - 1) + fibs!!(x - 2)
+  where
+  fibs = map fib [0..]