13 lines
255 B
Standard ML
13 lines
255 B
Standard ML
|
fun fibfp n =
|
||
|
|
if n < 2.0
|
||
|
|
then n
|
||
|
|
else fibfp(n-1.0) + fibfp(n-2.0)
|
||
|
|
|
||
|
|
fun fibfp_benchmark (n) =
|
||
|
|
let open Real
|
||
|
|
in
|
||
|
|
run_benchmark ("fibfp", n, fn () => fibfp 30.0, fn (x) => ==(x, 832040.0))
|
||
|
|
end
|
||
|
|
|
||
|
|
fun main () = fibfp_benchmark (fibfp_iters)
|