RosettaCodeData/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-2.hs
2017-09-25 22:28:19 +02:00

6 lines
108 B
Haskell

fib x =
if x < 1
then 0
else if x < 2
then 1
else fib (x - 1) + fib (x - 2)