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-8.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-8.hs
@ -1 +1 @@
-let fib x =  if x < 1 then 0 else (if x < 3 then 1 else (fib(x - 1) + fib(x - 2)))
+fib = 0 : 1 : next fib where next (a: t@(b:_)) = (a+b) : next t