1 2 3 4 5 6 7 8 9 10 11 12 13
[[[3,3, sub Ack { my($M, $N) = @_; return( $N + 1 ) if ($M == 0); return( Ack($M - 1, 1) ) if ($N == 0); Ack($M - 1, Ack($M, $N - 1)); } return Ack($i,$j); ]]] Function "Ack" (Ackermann's function) copied from Doug Bagley.