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

2 lines
83 B
Haskell

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