RosettaCodeData/Task/Ackermann-function/SmileBASIC/ackermann-function.basic

10 lines
132 B
Plaintext

DEF ACK(M,N)
IF M==0 THEN
RETURN N+1
ELSEIF M>0 AND N==0 THEN
RETURN ACK(M-1,1)
ELSE
RETURN ACK(M-1,ACK(M,N-1))
ENDIF
END