Sorting numbers - FiliSort

[2112]

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

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



FiliSort n()



timer2! = Timer

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



'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