快速排序

Miu.C

快速排序

Public Sub QuickSort(ByRef aStrSort() As String, ByVal lngleft As Long, ByVal lngright As Long)
    Dim i As Long
    Dim j As Long
    Dim temp As String
    i = lngleft
    j = lngright
    temp = aStrSort(i)
   
NextStep:
    Do Until i >= j
        While (aStrSort(j) > temp And j > i)
            j = j - 1
        Wend
        If j > i Then
            aStrSort(i) = aStrSort(j)
            aStrSort(j) = temp
            i = i + 1
        End If
        While (aStrSort(i) < temp And j > i)
            i = i + 1
        Wend
        If j > i Then
            aStrSort(j) = aStrSort(i)
            aStrSort(i) = temp
            j = j - 1
        End If
    Loop
    If lngleft < i - 1 Then QuickSort aStrSort, lngleft, i - 1
    If lngright > i + 1 Then QuickSort aStrSort, i + 1, lngright
End Sub

Miu.C

速度最快的排序方法。

Miu.C

算法的基本思想：

快速排序的基本思想是基于分治策略的。对于输入的子序列ap..ar，如果规模足够小则直接进行排序，否则分三步处理：

分解(Divide)：将输入的序列ap..ar划分成两个非空子序列ap..aq和aq+1..ar，使ap..aq中任一元素的值不大于aq+1..ar中任一元素的值。
递归求解(Conquer)：通过递归调用快速排序算法分别对ap..aq和aq+1..ar进行排序。
合并(Merge)：由于对分解出的两个子序列的排序是就地进行的，所以在ap..aq和aq+1..ar都排好序后不需要执行任何计算ap..ar就已排好序。
这个解决流程是符合分治法的基本步骤的。因此，快速排序法是分治法的经典应用实例之一。

kingzr

用处大着哦

yinxiaodan

这对大量数据排序的速度优化是非常关键的,不错的,我一直用它

游戏之家站长

griffin2007: Re: Re:快速排序


对你来说没有帮助。

会那么多算法. 你写过什么游戏? [em2]

xpertsoft

专业路过.

Miu.C

快排速度快但是没办法尽快知道这组数列的最大值和最小值。

psic

游戏之家站长: Re: Re: Re:快速排序


贴这些有什么用？对开发游戏没有任何帮助。

就是，不过是做个“完整游戏”而已，哪用得着那么复杂的东西

Devil

游戏之家站长: Re: Re: Re:快速排序




会那么多算法. 你写过什么游戏? [em2]

真是愚蠢.