diff options
Diffstat (limited to 'trunk/benchmark/other-lang/tak.pl')
-rw-r--r-- | trunk/benchmark/other-lang/tak.pl | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/trunk/benchmark/other-lang/tak.pl b/trunk/benchmark/other-lang/tak.pl deleted file mode 100644 index 7e748a67c6..0000000000 --- a/trunk/benchmark/other-lang/tak.pl +++ /dev/null @@ -1,11 +0,0 @@ -sub tak { - local($x, $y, $z) = @_; - if (!($y < $x)) { - return $z; - } else { - return &tak(&tak($x - 1, $y, $z), - &tak($y - 1, $z, $x), - &tak($z - 1, $x, $y)); - } -} -&tak(18, 9, 0); |