表达

程序实现

表达

Arcman(m,n)

当m=0时，Arcman(m,n)=n+1

当n=0时，Arcman(m,n)=Arcman(m-1,n+1)

当m,n均不为零时，Arcman(m,n)=Arcman(m-1,Arcman(m,n-1))

程序实现

此处以Free Pascal为例：

Function Arcman(m,n:integer):integer;

begin

if m=0 then

Arcman:=n+1

else if n=0 then

Arcman:=Arcman(m-1,n+1)

else

Arcman:=Arcman(m-1,Arcman(m,n-1));

end;