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