Sorting numbers - FiliSort

[bplus]

What's with (time diff)/1.18???

You would get much better accuracy with Timer(.001)

Code: (Select All)

' FiliSort v1.0
' This a very simple sorting method, a lot faster than Bubblesort
' For 50000 numbers in my pc, it takes 16.43 sec
' while the Bubble Sort takes 29.18 sec

Screen _NewImage(800, 700, 32)

Dim Shared tn As Long
tn = 20000 ' total numbers to sort
Dim Shared n(tn) As Single

Randomize Timer
For i = 1 To tn: n(i) = Rnd * 100 - 50: Next i

timer1! = Timer
t1 = Timer(.001)
Print "Sorting..."; tn; "numbers": Print "Timer starts:"; timer1!

FiliSort n()

timer2! = Timer
t2 = Timer(.001)
Print "Timer ends:"; timer2!; "    Seconds:"; (timer2! - timer1!) '/ 1.18
Print "Timer(.001) time is:"; (t2 - t1); "secs"
Print
'For k = 1 To tn: Print n(k): Next k

End

Sub FiliSort (n())
    For k = 1 To tn / 2
        min = n(k): max = n(tn - k + 1)
        imin = 0: imax = 0
        For i = k To tn - k
            If min > n(i + 1) Then min = n(i + 1): imin = i + 1 'find the minimum of the numbers
            If max <= n(i) Then max = n(i): imax = i 'find the maximum of the numbers
        Next i
        If imin > 0 Then n(imin) = n(k): n(k) = min
        If imax = k Then imax = imin
        If imax > 0 Then n(imax) = n(tn - k + 1): n(tn - k + 1) = max
    Next k
End Sub