chuankay 发表于 2013-12-30 01:06:46

希尔排序算法

前段时间写skill脚本时发现：当为database按照某一属性排序时，sort系列功能貌似不能很好的工作（大家可以试一下）。所以贴出skill版本的希尔排序算法，需要用的朋友可以看看（反正已经解决了我遇到的问题）。
defun( shell_sort (List);
    v =listToVector(List)
         n = length(List)
    gap = 0,
    i = 0,
    j = 0,
    temp = nil;
    gap = n/2
    while(gap > 0
      for(igapn-1
            j = i - gap
            while(j >= 0 && v > v
                temp = v;
                v = v;
                v = temp;
                j = j - gap   
            );while
            i++
      );for
      gap = gap/2
    );while
         vlist = vectorToList(v)
);defun

vivienluo 发表于 2013-12-30 22:53:08

之前好想也用到过排序，不是很好操作。有机会试试你的方法。

kingsogo 发表于 2014-6-24 14:45:01

谢谢楼主分享

金色石头 发表于 2017-9-21 23:51:25

刚好有东西需要排下序。赞

下一个转角 发表于 2019-8-19 09:10:09

我来尝试一下，谢谢分享
页: [1]
查看完整版本: 希尔排序算法