28 lines
547 B
Scheme
28 lines
547 B
Scheme
|
;;; 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))
|