;;; FIBFP -- Computes fib(35) using floating point (import (rnrs base) (rnrs io simple) (rnrs arithmetic flonums)) (define (fibfp n) (if (flstring count)) (s1 (number->string input)) (name "fibfp")) (run-r6rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (fibfp (hide count input))) (lambda (result) (= result output)))))