RosettaCodeData/Task/Ackermann-function/SmileBASIC/ackermann-function.smilebasic
2019-09-12 10:33:56 -07:00

9 lines
132 B
Text

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