Bucketsort: Difference between revisions

Content added Content deleted
Line 8: Line 8:
REDIM a(0 TO 1048575) AS DOUBLE
REDIM a(0 TO 1048575) AS DOUBLE
FOR FillArray& = LBOUND(a) TO UBOUND(a)
FOR FillArray& = LBOUND(a) TO UBOUND(a)
a(Fillearray&) = RND
a(FillArray&) = RND
NEXT
NEXT
DoRecurse% = -1
DoRecurse% = -1