RosettaCodeData/Task/Fibonacci-sequence/OCaml/fibonacci-sequence-1.ml
2024-10-16 18:07:41 -07:00

5 lines
99 B
OCaml

let fib n =
let rec aux i a b =
if i = 0 then a else aux (pred i) b (a + b)
in
aux n 0 1