X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=lib%2Fruby-1.9.1-rc1%2Fbenchmark%2Fother-lang%2Ftak.scm;fp=lib%2Fruby-1.9.1-rc1%2Fbenchmark%2Fother-lang%2Ftak.scm;h=52a7629ee520a333d633616959bd7f63d5a05cbf;hb=58075c6b21b7e613514929f5fb85560acde9fff7;hp=0000000000000000000000000000000000000000;hpb=99ab3684c276833a1152440e82723c591f97ff99;p=splhack%2FAndroidRuby.git

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
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)
+
+