9 lines
210 B
Text
9 lines
210 B
Text
|
function Ackermann(m, n : Integer) : Integer;
|
||
|
|
begin
|
||
|
|
if m = 0 then
|
||
|
|
Result := n+1
|
||
|
|
else if n = 0 then
|
||
|
|
Result := Ackermann(m-1, 1)
|
||
|
|
else Result := Ackermann(m-1, Ackermann(m, n-1));
|
||
|
|
end;
|