git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11708 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
12 lines
187 B
Perl
12 lines
187 B
Perl
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);
|