17 lines
351 B
Text
17 lines
351 B
Text
//subAck1();
|
|
EXPORT Ackermann_function(m,n)
|
|
BEGIN
|
|
PRINT;
|
|
PRINT("Ackermann("+m+","+n+") = "+subAck1(m,n));
|
|
END;
|
|
|
|
subAck1(m,n)
|
|
BEGIN
|
|
CASE
|
|
IF m<0 OR n<0 THEN "m y n deben ser >=0" END;
|
|
IF m=0 THEN n+1 END;
|
|
IF m>0 AND n=0 THEN subAck1((m-1),1); END;
|
|
IF m>0 AND n>0 THEN subAck1((m-1),subAck1(m,(n-1))); END;
|
|
DEFAULT RETURN PRINT("ERROR");
|
|
END;
|
|
END;
|