ikarus/benchmarks.larceny/src/fpsum.scm

15 lines
331 B
Scheme
Raw Normal View History

;;; FPSUM - Compute sum of integers from 0 to 1e6 using floating point
(define (run)
(let loop ((i 1e6) (n 0.))
(if (FLOAT< i 0.)
n
(loop (FLOAT- i 1.) (FLOAT+ i n)))))
(define (main . args)
(run-benchmark
"fpsum"
fpsum-iters
2007-06-13 10:49:54 -04:00
(lambda (result) (equal? result 500000500000.))
(lambda () run)))