Searched refs:ackermann (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Drecurse.t33 # For example ackermann(4,1) will take quite a long time.
36 sub ackermann { subroutine
38 return ackermann($_[0] - 1, 1) if ($_[1] == 0);
39 ackermann($_[0] - 1, ackermann($_[0], $_[1] - 1));
68 my $a = ackermann($x, $y);
69 is($a, shift(@ack), "ackermann($x, $y) == $a");

Completed in 33 milliseconds