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)