diff options
Diffstat (limited to 'benchmark/other-lang/ack.pl')
-rw-r--r-- | benchmark/other-lang/ack.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/benchmark/other-lang/ack.pl b/benchmark/other-lang/ack.pl new file mode 100644 index 0000000000..8933c33ae5 --- /dev/null +++ b/benchmark/other-lang/ack.pl @@ -0,0 +1,11 @@ +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);
|