希尔排序算法

森途

前段时间写skill脚本时发现：当为database按照某一属性排序时，sort系列功能貌似不能很好的工作（大家可以试一下）。所以贴出skill版本的希尔排序算法，需要用的朋友可以看看（反正已经解决了我遇到的问题）。

1. defun( shell_sort (List);
   
2.     v =  listToVector(List)  
   
3.          n = length(List)
   
4.     gap = 0,
   
5.     i = 0,
   
6.     j = 0,
   
7.     temp = nil;
   
8.     gap = n/2
   
9.     while(gap > 0
   
10.         for(i  gap  n-1
    
11.             j = i - gap
    
12.             while(j >= 0 && v[j] > v[j+gap]
    
13.                 temp = v[j];
    
14.                 v[j] = v[j+gap];
    
15.                 v[j+gap] = temp;
    
16.                 j = j - gap   
    
17.             );while
    
18.             i++
    
19.         );for
    
20.         gap = gap/2
    
21.     );while
    
22.          vlist = vectorToList(v)
    
23. );defun
    

复制代码