diff options
Diffstat (limited to 'jni/ruby/benchmark/other-lang/tak.scm')
-rw-r--r-- | jni/ruby/benchmark/other-lang/tak.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/jni/ruby/benchmark/other-lang/tak.scm b/jni/ruby/benchmark/other-lang/tak.scm new file mode 100644 index 0000000..52a7629 --- /dev/null +++ b/jni/ruby/benchmark/other-lang/tak.scm @@ -0,0 +1,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) + + |