ikarus/benchmarks.larceny/src/fib.sml

10 lines
197 B
Standard ML

fun fib n =
if n < 2
then n
else fib(n-1) + fib(n-2)
fun fib_benchmark (n) =
run_benchmark ("fib", n, fn () => fib 30, fn (x) => x = 832040)
fun main () = fib_benchmark (fib_iters)