RosettaCodeData/Task/Ackermann-function/BBC-BASIC/ackermann-function.bbc
Ingy döt Net 518da4a923 B
2013-04-10 16:19:29 -07:00

7 lines
198 B
Text

PRINT FNackermann(3, 7)
END
DEF FNackermann(M%, N%)
IF M% = 0 THEN = N% + 1
IF N% = 0 THEN = FNackermann(M% - 1, 1)
= FNackermann(M% - 1, FNackermann(M%, N%-1))