Find limit of recursion: Difference between revisions
Find limit of recursion in various BASIC dialents (BASIC256, QBasic, True BASIC and Yabasic)
(Add V as Vlang) |
(Find limit of recursion in various BASIC dialents (BASIC256, QBasic, True BASIC and Yabasic)) |
||
Line 515:
261883
Segmentation fault</pre>
==={{header|BASIC256}}===
<lang freebasic>function Recursion(i)
print i
ext = Recursion(i + 1)
return False
end function
ext = Recursion(0)</lang>
==={{header|FreeBASIC}}===
Line 543 ⟶ 552:
33
Out of memory in 20.</pre>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
<lang qbasic>FUNCTION Recursion (i)
PRINT i
ext = Recursion(i + 1)
Recursion = 0
END FUNCTION
ext = Recursion(0)</lang>
==={{header|Sinclair ZX81 BASIC}}===
Line 577 ⟶ 596:
</pre>
I don't recommend actually running this; it will crash the computer.
==={{header|True BASIC}}===
{{works with|BASIC256}}
{{works with|QBasic}}
<lang qbasic>FUNCTION Recursion (i)
PRINT i
LET ext = Recursion(i + 1)
LET Recursion = 0
END FUNCTION
LET ext = Recursion(0)
END</lang>
==={{header|Yabasic}}===
<lang freebasic>sub Recursion(i)
print i
Recursion(i + 1)
end sub
Recursion(0)</lang>
==={{header|ZX Spectrum Basic}}===
| |||