ikarus/benchmarks/src/tak.scm

28 lines
547 B
Scheme
Raw Normal View History

;;; TAK -- A vanilla version of the TAKeuchi function.
(define (tak x y z)
(if (not (< y x))
z
(tak (tak (- x 1) y z)
(tak (- y 1) z x)
(tak (- z 1) x y))))
;;; (define (tak x y z)
;;; (if (not (#%$fx< y x))
;;; z
;;; (tak (tak (fxsub1 x) y z)
;;; (tak (fxsub1 y) z x)
;;; (tak (fxsub1 z) x y))))
(define (main . args)
(run-benchmark
"tak"
tak-iters
(lambda (result) (equal? result 7))
(lambda (x y z) (lambda () (tak x y z)))
18
12
6))