RosettaCodeData/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-2.hs

7 lines
108 B
Haskell
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
fib x =
if x < 1
then 0
else if x < 2
then 1
else fib (x - 1) + fib (x - 2)