Recursion Limit

[CharlieJV]

Oh you guys and gals have been busy!

I was testing other Basics and learned LB could go to 4 million +

Well I doubled that in QB64pe v3.7 with same code tip: use a GoSub!

Code: (Select All)

Dim i As _Integer64
i = 1
GoSub howRecursive
End
howRecursive:
If i < 0 Then Print "_Integer64 turned negative.": End
Print i
_Delay .000000000005
i = i + 1
GoSub howRecursive
Return

I was up past 8 million or was it 81 million? I stopped program to get my computer back to do more stuff.

Oh hey! Works way way way faster w/o delay (the key word = works)  
Way past 200 million as I write this.

3 Billion+ whats to stop this? The _Integer64 Type I think.

Oh got over .5 Billion not 3 Billion, misread numbers:

For the giggles, I decided to do the same sort of thing with BAM, and it conked out at 536.85 million.  That's a big difference from before.

I'm finding it wildly interesting that both BAM's BASIC interpreter written in javascript and QB64pe's compiled C++ perform both way better using GOSUB instead of Sub.

Suddenly, I'm starting to question my attitude towards GOSUB.

Code: (Select All)

dim as double i
i = 1

GOSUB howRecursive

end

howRecursive:
    If i < 0 Then Print "_Integer64 turned negative.": End
    if i mod 50000 = 0 then Print i: _display
    i = i + 1
    GOSUB howRecursive
return