functional-test/fib.ml at develop · dekker.one/bytecode-benchmarks

A set of benchmarks to compare a new prototype MiniZinc implementation

bytecode-benchmarks / functional-test / fib.ml

at develop 117 B view raw

1let rec fib n =
2  if n <= 1 then n
3  else fib (n-1) + fib (n-2);;
4
5for it = 1 to 1000 do let _ = (fib 23) in () done