Class PHA.YX.Arithmetic.QuickSort Extends %RegisteredObject
{
Method quickSortBilateral(arr As PHA.YX.Arithmetic.Array, startIndex As %Integer, endIndex As %Integer)
{
/* 递归结束条件:startIndex大等于endIndex的时候 */
q:(startIndex >= endIndex) arr
/* 得到基准元素位置 */
#dim pivotIndex as %Integer = ..partitionBilateral(arr, startIndex, endIndex)
w "startIndex:" _ startIndex _" endIndex:" _ endIndex_" pivotIndex:" _ pivotIndex,!
/* 根据基准元素,分成两部分递归排序 */
d ..quickSortBilateral(arr, startIndex, pivotIndex - 1)
d ..quickSortBilateral(arr, pivotIndex + 1, endIndex)
q arr
}
Method partitionBilateral(arr As PHA.YX.Arithmetic.Array, startIndex As %Integer, endIndex As %Integer)
{
/* 取第一个位置的元素作为基准元素(也可以选择随机位置) */
#dim pivot as %Integer = arr.get(startIndex)
#dim left as %Integer = startIndex
#dim right as %Integer = endIndex
while (left '= right){
/* 控制right指针比较并左移 */
while ((left < right) && (arr.get(right) > pivot)){
w "first left:" _ left _" right:" _ right _ " arr.get(right):" _ arr.get(right) _" pivot:" _ pivot,!
s right = right -1
}
/* 控制left指针比较并右移 */
while ((left < right) && (arr.get(left) <= pivot)){
w "second left:" _ left _" right:" _ right _" arr.get(left):" _ arr.get(left) _" pivot:" _ pivot,!
s left = left + 1
}
/* 交换left和right指向的元素 */
if (left < right){
#dim p as %Integer = arr.get(left)
d arr.set(left, arr.get(right))
d arr.set(right, p)
}
}
d arr.set(startIndex, arr.get(left))
d arr.set(left, pivot)
q left
}
}
/// w ##class(PHA.YX.Arithmetic).QuickSortBilateral()
ClassMethod QuickSortBilateral()
{
s $zt = "ErrQuickSort"
s array = ##class(PHA.YX.Arithmetic.Array).%New()
d array.init(8)
d array.insert(0,41)
d array.insert(1,73)
d array.insert(2,64)
d array.insert(3,55)
d array.insert(4,36)
d array.insert(5,27)
d array.insert(6,88)
d array.insert(7,19)
#dim mQuickSort as PHA.YX.Arithmetic.QuickSort = ##class(PHA.YX.Arithmetic.QuickSort).%New()
s array = mQuickSort.quickSortBilateral(array, 0 ,array.length - 1)
d array.output()
q ""
ErrQuickSort
q $ze
}
DHC-APP>w ##class(PHA.YX.Arithmetic).QuickSortBilateral()
19
27
36
41
55
64
73
88
而单边循环法则简单得多,只从数组的一边对元素进行遍历和交换。
Method quickSortUnilateral(arr As PHA.YX.Arithmetic.Array, startIndex As %Integer, endIndex As %Integer)
{
/* 递归结束条件:startIndex大等于endIndex的时候 */
q:(startIndex >= endIndex) arr
/* 得到基准元素位置 */
#dim pivotIndex as %Integer = ..partitionUnilateral(arr, startIndex, endIndex)
w "startIndex:" _ startIndex _" endIndex:" _ endIndex_" pivotIndex:" _ pivotIndex,!
/* 根据基准元素,分成两部分递归排序 */
d ..quickSortUnilateral(arr, startIndex, pivotIndex - 1)
d ..quickSortUnilateral(arr, pivotIndex + 1, endIndex)
q arr
}
Method partitionUnilateral(arr As PHA.YX.Arithmetic.Array, startIndex As %Integer, endIndex As %Integer)
{
/* 取第一个位置的元素作为基准元素(也可以选择随机位置) */
#dim pivot as %Integer = arr.get(startIndex)
#dim mark as %Integer = startIndex
for i = (startIndex + 1) : 1 : endIndex {
if (arr.get(i) < pivot){
s mark = mark + 1
#dim p as %Integer = arr.get(mark)
d arr.set(mark, arr.get(i))
d arr.set(i, p)
}
}
d arr.set(startIndex, arr.get(mark))
d arr.set(mark, pivot)
q mark
}
/// w ##class(PHA.YX.Arithmetic).QuickSortUnilateral()
ClassMethod QuickSortUnilateral()
{
s $zt = "ErrQuickSort"
s array = ##class(PHA.YX.Arithmetic.Array).%New()
d array.init(8)
d array.insert(0,41)
d array.insert(1,73)
d array.insert(2,64)
d array.insert(3,55)
d array.insert(4,36)
d array.insert(5,27)
d array.insert(6,88)
d array.insert(7,19)
#dim mQuickSort as PHA.YX.Arithmetic.QuickSort = ##class(PHA.YX.Arithmetic.QuickSort).%New()
s array = mQuickSort.quickSortUnilateral(array, 0 ,array.length - 1)
d array.output()
q ""
ErrQuickSort
q $ze
}
DHC-APP>w ##class(PHA.YX.Arithmetic).QuickSortUnilateral()
startIndex:0 endIndex:7 pivotIndex:3
startIndex:0 endIndex:2 pivotIndex:0
startIndex:1 endIndex:2 pivotIndex:2
startIndex:4 endIndex:7 pivotIndex:6
startIndex:4 endIndex:5 pivotIndex:4
19
27
36
41
55
64
73
88
Method quickSortStack(arr As PHA.YX.Arithmetic.Array, startIndex As %Integer, endIndex As %Integer)
{
#dim quickSortStack as PHA.YX.Arithmetic.Stack = ##class(PHA.YX.Arithmetic.Stack).%New()
#dim rootParam as %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
d rootParam.SetAt(startIndex, "startIndex")
d rootParam.SetAt(endIndex, "endIndex")
d quickSortStack.push(rootParam)
while ('quickSortStack.isEmpty()){
#dim param as %ArrayOfDataTypes = quickSortStack.pop()
w "param.GetAt(startIndex):" _ param.GetAt("startIndex") _ " param.GetAt(endIndex):" _ param.GetAt("endIndex") ,!
#dim pivotIndex as %Integer = ..partitionStack(arr, param.GetAt("startIndex"), param.GetAt("endIndex"))
if ((param.GetAt("startIndex")) < (pivotIndex - 1) ){
#dim leftParam as %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
d leftParam.SetAt(param.GetAt("startIndex"), "startIndex")
d leftParam.SetAt(pivotIndex - 1, "endIndex")
d quickSortStack.push(leftParam)
}
if ((pivotIndex + 1) < (param.GetAt("endIndex"))){
#dim rightParam as %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
d rightParam.SetAt(pivotIndex + 1, "startIndex")
d rightParam.SetAt(param.GetAt("endIndex"), "endIndex")
d quickSortStack.push(rightParam)
}
}
q arr
}
Method partitionStack(arr As PHA.YX.Arithmetic.Array, startIndex As %Integer, endIndex As %Integer)
{
/* 取第一个位置的元素作为基准元素(也可以选择随机位置) */
#dim pivot as %Integer = arr.get(startIndex)
#dim mark as %Integer = startIndex
for i = (startIndex + 1) : 1 : endIndex {
if (arr.get(i) < pivot){
s mark = mark + 1
#dim p as %Integer = arr.get(mark)
d arr.set(mark, arr.get(i))
d arr.set(i, p)
}
}
d arr.set(startIndex, arr.get(mark))
d arr.set(mark, pivot)
q mark
}
/// w ##class(PHA.YX.Arithmetic).QuickSortStack()
ClassMethod QuickSortStack()
{
s $zt = "QuickSortStack"
s array = ##class(PHA.YX.Arithmetic.Array).%New()
d array.init(8)
d array.insert(0,41)
d array.insert(1,73)
d array.insert(2,64)
d array.insert(3,55)
d array.insert(4,36)
d array.insert(5,27)
d array.insert(6,88)
d array.insert(7,19)
#dim mQuickSort as PHA.YX.Arithmetic.QuickSort = ##class(PHA.YX.Arithmetic.QuickSort).%New()
s array = mQuickSort.quickSortStack(array, 0 ,array.length - 1)
d array.output()
q ""
QuickSortStack
q $ze
}
DHC-APP>w ##class(PHA.YX.Arithmetic).QuickSortStack()
param.GetAt(startIndex):0 param.GetAt(endIndex):7
param.GetAt(startIndex):4 param.GetAt(endIndex):7
param.GetAt(startIndex):4 param.GetAt(endIndex):5
param.GetAt(startIndex):0 param.GetAt(endIndex):2
param.GetAt(startIndex):1 param.GetAt(endIndex):2
19
27
36
41
55
64
73
88