ikarus/benchmarks/new/r6rs-benchmarks/fibfp.ss

23 lines
479 B
Scheme

;;; FIBFP -- Computes fib(35) using floating point
(library (r6rs-benchmarks fibfp)
(export main)
(import (r6rs)
(r6rs arithmetic flonums)
(r6rs-benchmarks))
(define (fibfp n)
(if (fl<? n 2.)
n
(fl+ (fibfp (fl- n 1.))
(fibfp (fl- n 2.)))))
(define (main . args)
(run-benchmark
"fibfp"
fibfp-iters
(lambda (result) (equal? result 9227465.))
(lambda (n) (lambda () (fibfp n)))
35.)))