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

8 lines
101 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
FUNCTION Recursion (i)
PRINT i
ext = Recursion(i + 1)
Recursion = 0
END FUNCTION
ext = Recursion(0)