Treebeard's String-Math

[Jack]

up-to fibonacci 483

Code: (Select All)

digits = 48683 'digits for division etc

'========================================================================
Dim As Double t
Dim As String n, m, r
Dim As Long i, j
t = Timer
n = "1"
m = String$(100, "9") + "8" + String$(101, "9")
bDiv n, m, r

j = InStr(r, ".")
r = Mid$(r, j + 1)
j = 1
For i = 1 To 484
    Print Mid$(r, j, 101)
    j = j + 101
Next

t = Timer - t
Print t