ikarus/benchmarks/r6rs-benchmarks/todo-src/temp2.scm

17 lines
308 B
Scheme

;;; FIBFP -- Computes fib(25) using floating point
(define (fibfp n)
(write n)
(newline)
(if (< n 2.)
n
(+ (fibfp (- n 1.))
(fibfp (- n 2.)))))
(define (main . args)
(run-benchmark
"fibfp"
fibfp-iters
(lambda () (fibfp 1.))
(lambda (result) (equal? result 75025.))))