diff options
Diffstat (limited to 'trunk/benchmark/other-lang/ack.pl')
-rw-r--r-- | trunk/benchmark/other-lang/ack.pl | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/trunk/benchmark/other-lang/ack.pl b/trunk/benchmark/other-lang/ack.pl deleted file mode 100644 index 201e22ddfa..0000000000 --- a/trunk/benchmark/other-lang/ack.pl +++ /dev/null @@ -1,11 +0,0 @@ -use integer; - -sub Ack { - return $_[0] ? ($_[1] ? Ack($_[0]-1, Ack($_[0], $_[1]-1)) - : Ack($_[0]-1, 1)) - : $_[1]+1; -} - -my $NUM = 9; -$NUM = 1 if ($NUM < 1); -my $ack = Ack(3, $NUM); |