;;; 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.)))