mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
a3e1b1ce7e
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11439 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
11 lines
198 B
Perl
11 lines
198 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);
|