ruby-1.9.1-rc1

[splhack/AndroidRuby.git] / lib / ruby-1.9.1-rc1 / benchmark / other-lang / tak.scm

diff --git a/lib/ruby-1.9.1-rc1/benchmark/other-lang/tak.scm b/lib/ruby-1.9.1-rc1/benchmark/other-lang/tak.scm
new file mode 100644 (file)
index 0000000..52a7629
--- /dev/null
+++ b/lib/ruby-1.9.1-rc1/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)
+
+