summaryrefslogtreecommitdiff
path: root/benchmark/other-lang/tak.scm
blob: 45cc576767af1d6e8757cab50f89d242b4277b84 (plain)
1
2
3
4
5
6
7
8
9
10
(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))))

(tak 18 9 0)