الگوریتم برای محاسبه تابع آکرمان

[leyla]

با عرض سلام
تابع آکرمان A(M,N به صورت زیر تعریف میشود:
if m=0 n+1
( A(M,N){ if n=0 A( m-1,1
(ot herwise A(m-1,A(M,N-1)
این تابع جهت اینکه برای مقادیر کوچک M,N به سرعت رشد می کند مورد بررسی قرار می دهد

[MM_Mofidi]

مفهوم نیست.
ضمنا لطفا قسمت کد را مجددا (با استفاده از تگ مربوطه ) بنویسید.

[Sepidar]

function A(m,n:integer):integer;
begin
if m=0 then result:=n+1 else
if n=0 then result:=A(m-1,1) else
Result:=A(m-1,A(m,n-1)
end;

[leyla]

با تشکر