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;