21 lines
220 B
Text
21 lines
220 B
Text
PROGRAM:ACKERMAN
|
|
:If not(M
|
|
:Then
|
|
:N+1→N
|
|
:Return
|
|
:Else
|
|
:If not(N
|
|
:Then
|
|
:1→N
|
|
:M-1→M
|
|
:prgmACKERMAN
|
|
:Else
|
|
:N-1→N
|
|
:M→L1(1+dim(L1
|
|
:prgmACKERMAN
|
|
:Ans→N
|
|
:L1(dim(L1))-1→M
|
|
:dim(L1)-1→dim(L1
|
|
:prgmACKERMAN
|
|
:End
|
|
:End
|