summaryrefslogtreecommitdiff
path: root/jni/ruby/benchmark/other-lang/tak.scm
blob: 52a7629ee520a333d633616959bd7f63d5a05cbf (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)