RosettaCodeData/Task/Find-limit-of-recursion/XBasic/find-limit-of-recursion.basic

16 lines
230 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
PROGRAM "Find limit of recursion"
DECLARE FUNCTION Entry ()
DECLARE FUNCTION Recursion(n)
FUNCTION Entry ()
Recursion (0)
END FUNCTION
FUNCTION Recursion (i)
PRINT i
Recursion (1 + i)
END FUNCTION
END PROGRAM