ikarus/benchmarks/new/r6rs-benchmarks/ack.ss

20 lines
455 B
Scheme
Raw Normal View History

2007-06-13 03:19:16 -04:00
;;; ACK -- One of the Kernighan and Van Wyk benchmarks.
(library (r6rs-benchmarks ack)
(export main)
(import (r6rs) (r6rs-benchmarks))
(define (ack m n)
(cond ((= m 0) (+ n 1))
((= n 0) (ack (- m 1) 1))
(else (ack (- m 1) (ack m (- n 1))))))
(define (main . args)
(run-benchmark
"ack"
ack-iters
(lambda (result) (equal? result 4093))
(lambda (m n) (lambda () (ack m n)))
3
9)))