RosettaCodeData/Task/Ackermann-function/Yabasic/ackermann-function-1.basic
2023-07-01 13:44:08 -04:00

7 lines
127 B
Text

sub ack(M,N)
if M = 0 return N + 1
if N = 0 return ack(M-1,1)
return ack(M-1,ack(M, N-1))
end sub
print ack(3, 4)