10 lines
197 B
Standard ML
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)
|