mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Fibonacci-sequence/OCaml/fibonacci-sequence-1.ml

6 lines
99 B
OCaml
Raw Permalink Blame History

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
Reference in New Issue View Git Blame Copy Permalink