22 lines
420 B
Plaintext
22 lines
420 B
Plaintext
' Mutually recursive
|
|
FUNCTION F(int n) TYPE int
|
|
RETURN IIF(n = 0, 1, n - M(F(n -1)))
|
|
END FUNCTION
|
|
|
|
FUNCTION M(int n) TYPE int
|
|
RETURN IIF(n = 0, 0, n - F(M(n - 1)))
|
|
END FUNCTION
|
|
|
|
' Get iteration limit, default 20
|
|
SPLIT ARGUMENT$ BY " " TO arg$ SIZE args
|
|
limit = IIF(args > 1, VAL(arg$[1]), 20)
|
|
|
|
FOR i = 0 TO limit
|
|
PRINT F(i) FORMAT "%2d "
|
|
NEXT
|
|
PRINT
|
|
FOR i = 0 TO limit
|
|
PRINT M(i) FORMAT "%2d "
|
|
NEXT
|
|
PRINT
|