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