RosettaCodeData/Task/Find-limit-of-recursion/PureBasic/find-limit-of-recursion-1.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

6 lines
72 B
Text

Procedure Recur(n)
PrintN(str(n))
Recur(n+1)
EndProcedure
Recur(1)