ikarus/benchmarks/r6rs-benchmarks/sumfp.ss

;;; SUMFP -- Compute sum of integers from 0 to 10000 using floating point
(library (r6rs-benchmarks sumfp)
  (export main)
  (import (r6rs) (r6rs arithmetic flonums) (r6rs-benchmarks))

  
  (define (run n)
    (let loop ((i n) (sum 0.))
      (if (fl<? i 0.)
          sum
          (loop (fl- i 1.) (fl+ i sum)))))
   
  (define (main . args)
    (run-benchmark
      "sumfp"
      sumfp-iters
      (lambda (result) (equal? result 50005000.))
      (lambda (n) (lambda () (run n)))
      10000.)))