17 lines
308 B
Scheme
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.))))
|