11 lines
243 B
Text
11 lines
243 B
Text
|
Ackermann := proc( m :: nonnegint, n :: nonnegint )
|
||
|
|
option remember; # optional automatic memoization
|
||
|
|
if m = 0 then
|
||
|
|
n + 1
|
||
|
|
elif n = 0 then
|
||
|
|
thisproc( m - 1, 1 )
|
||
|
|
else
|
||
|
|
thisproc( m - 1, thisproc( m, n - 1 ) )
|
||
|
|
end if
|
||
|
|
end proc:
|