Sorting numbers - FiliSort

[bplus]

here is 20,000 random numbers between -50 and 50 that took no time to sort!!!

Code: (Select All)

DefLng A-Z

Screen _NewImage(800, 700, 32)





tn = 20000 ' total numbers to sort

Dim Shared n(-5000000 To 5000000)



Randomize Timer

For i = 1 To tn: num = (Rnd * 100 - 50) * 100000: n(num) = n(num) + 1: Next i



timer1! = Timer

t1 = Timer(.001)

Print "Sorting..."; tn; "numbers": Print "Timer starts:"; timer1!

timer2! = Timer

t2 = Timer(.001)

Print "Timer ends:"; timer2!; "    Seconds:"; (timer2! - timer1!) '/ 1.18

Print "Timer(.001) time is:"; (t2 - t1); "secs"

Print

Print "press any to see sorted numbers... zzz"

Sleep

For k = -5000000 To 5000000

    If n(k) Then

        For i = 1 To n(k)

            Print k / 100000

        Next

    End If

Next k



End

Update: This is for entertainment purposes ONLY don't take this seriously (unless the method comes in handy  ).

Notice: No DATA has been corrupted in the making of this bit of entertainment. Please do not launch rockets or do brain surgery with this code!