【skill代码分享】快速排序算法

ashnoer

原来对算法没有研究，一直使用自己写的选排，后面感觉效率方面比较低就去了解了一下其他比较高效的算法，
然后觉得快速排序比较好，就自己弄了个

1. axlCmdRegister( "00" 'Main)
   
2. 
   
3. ;主函数
   
4. (procedure Main()
   
5.   let((Array)
   
6.     Array = listToVector(list(10, 2 ,7, 4, 8, 9, 1, 5 ,3 ,6))
   
7.     ;打印排序前的数组
   
8.     printf("%L" vectorToList(Array))
   
9.     printf("\n")
   
10. 
    
11.     ;调用快排主函数
    
12.     QuickSort(Array 0 length(Array)-1);
    
13. 
    
14.     ;打印排序后的数组
    
15.     printf("%L" vectorToList(Array))
    
16.   )
    
17. )
    
18. 
    
19. ;快速排序主函数
    
20. (procedure QuickSort(Arr Low High)
    
21.   let((Pi)
    
22.     when(Low<High
    
23.       Pi = Partition(Arr Low High)
    
24. 
    
25.       ;归地对基准左右两侧进行排序
    
26.       QuickSort(Arr Low Pi-1);
    
27.       QuickSort(Arr Pi+1 High);
    
28.     )
    
29.   )
    
30. )
    
31. 
    
32. ;分区函数,将数组分为比基准小和比基准大的两部分
    
33. (procedure Partition(Arr Low High)
    
34.   prog((Pivot)
    
35.     ;将区间末位元素作为基准
    
36.     Pivot = Arr[High]
    
37.     ;指向比基准小的元素区间的末尾
    
38.     Present = Low-1
    
39. 
    
40.     for(item Low High
    
41.       ;===============条件判断
    
42.       (when Arr[item]<Pivot
    
43.         Present++
    
44.         Swap(Arr item Present)
    
45.       )
    
46.     )
    
47.     Swap(Arr Present+1 High)
    
48.     return(Present+1)
    
49.   )
    
50. )
    
51. 
    
52. (procedure Swap(Array X Y)
    
53.   Value = Array[X]
    
54.   Array[X] = Array[Y]
    
55.   Array[Y] = Value
    
56. )

复制代码

Dc202408015a

学习mark 强

L669969

这个可以有

Harley123

谢谢分享！