22 lines
578 B
Text
22 lines
578 B
Text
#APPTYPE CONSOLE
|
|
|
|
DIM va[], sign = {1, -1}, toggle
|
|
|
|
PRINT "Loading ... ";
|
|
DIM gtc = GetTickCount()
|
|
FOR DIM i = 0 TO 1000000
|
|
va[] = sign[toggle] * PI * i
|
|
toggle = NOT toggle ' randomize the array
|
|
NEXT
|
|
PRINT "done in ", GetTickCount() - gtc, " milliseconds"
|
|
|
|
PRINT "Sorting ... ";
|
|
gtc = GetTickCount()
|
|
QUICKSORT(va) ' quick sort the array
|
|
PRINT "done in ", GetTickCount() - gtc, " milliseconds"
|
|
|
|
gtc = GetTickCount()
|
|
PRINT 1000000 * PI, " found at index ", BSEARCH(va, 1000000 * PI), _ ' binary search through the array
|
|
" in ", GetTickCount() - gtc, " milliseconds"
|
|
|
|
PAUSE
|