RosettaCodeData/Task/Fibonacci-sequence/OCaml/fibonacci-sequence-1.ml

6 lines
99 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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