ikarus/benchmarks/r6rs-benchmarks/sum.ss

20 lines
428 B
Scheme
Raw Normal View History

2007-06-13 10:49:54 -04:00
;;; SUM -- Compute sum of integers from 0 to 10000
(library (r6rs-benchmarks sum)
(export main)
(import (r6rs) (r6rs-benchmarks))
(define (run n)
(let loop ((i n) (sum 0))
(if (< i 0)
sum
(loop (- i 1) (+ i sum)))))
(define (main . args)
(run-benchmark
"sum"
sum-iters
(lambda (result) (equal? result 50005000))
(lambda (n) (lambda () (run n)))
10000)))