summaryrefslogtreecommitdiff
path: root/support/easylatex/testFiles/scriptedMatrixAckermann.txt
blob: fe05f0860a10c67b7b2f2ade993a81fa510b06ca (plain)
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.