快速选择
这是一种快速将数据分成两组的方法。类似快速排序算法。在ExcelHome网站讨论一亿取十万这个问题时,得到该网站知名网友“香川群子”的VB代码。核心如下:
Function QuickSort2(tr, l&, u&, k&) '递归算法的快速排序过程 不解释 Dim i&, j&, r, t i = l: j = u: r = tr((l + u) 2) While i < j Do While i < u If tr(i) < r Then i = i + 1 Else Exit Do Loop Do While j > l If tr(j) > r Then j = j - 1 Else Exit Do Loop If i < j Then t = tr(i): tr(i) = tr(j): tr(j) = t: i = i + 1: j = j - 1 Else If i = j Then i = i + 1: j = j - 1 Wend If k < j + 1 Then If j > l Then Call QuickSort2(tr, l, j, k) If k > i - 1 Then If i < u Then Call QuickSort2(tr, i, u, k) QuickSort2 = tr(k) '记录返回本次计算得到的第n个分界值 End Function
我把它改成了C代码。如下:
void SortQuick(int data[], int Low, int High, int k) { int low= Low, high= High; for(int key= data[(Low+High)/2]; low< high; ) { while(low< High && key> data[low]) low++; //在左边,找大值 while(Low< high && key< data[high]) high--; //在右边,找小值 if(low<= high) swap(data[low], data[high]), low++, high--; } if(low< High && k>= low) SortQuick(data, low, High, k); if(Low< high && k<= high) SortQuick(data, Low, high, k); } void TopKSortQuick(int data[], int m, int n) //m是总数n选择数 { SortQuick(data, 0, m-1, n-1); sort(data, data+ n); //排序方便比较 }
看起来简洁些。调用这个函数的代码,和前面给出过的类似。还是说说一亿取十万的用时:5.320秒。速度也非常快。