Find limit of recursion: Difference between revisions
Content added Content deleted
(Add V as Vlang) |
(Find limit of recursion in various BASIC dialents (BASIC256, QBasic, True BASIC and Yabasic)) |
||
Line 515: | Line 515: | ||
261883 |
261883 |
||
Segmentation fault</pre> |
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}}=== |
==={{header|FreeBASIC}}=== |
||
Line 543: | Line 552: | ||
33 |
33 |
||
Out of memory in 20.</pre> |
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}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |
||
Line 577: | Line 596: | ||
</pre> |
</pre> |
||
I don't recommend actually running this; it will crash the computer. |
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}}=== |
==={{header|ZX Spectrum Basic}}=== |