23 lines
413 B
Plaintext
23 lines
413 B
Plaintext
#APPTYPE CONSOLE
|
|
|
|
TestAckermann()
|
|
|
|
PAUSE
|
|
|
|
SUB TestAckermann()
|
|
FOR DIM m = 0 TO 3
|
|
FOR DIM n = 0 TO 10
|
|
PRINT AckermannF(m, n), " ";
|
|
NEXT
|
|
PRINT
|
|
NEXT
|
|
END SUB
|
|
|
|
FUNCTION AckermannF(m AS INTEGER, n AS INTEGER) AS INTEGER
|
|
IF NOT m THEN RETURN n + 1
|
|
IF NOT n THEN RETURN AckermannA(m - 1, 1)
|
|
RETURN AckermannC(m - 1, AckermannF(m, n - 1))
|
|
END FUNCTION
|
|
|
|
DYNC AckermannC(m AS INTEGER, n AS INTEGER) AS INTEGER
|