一个效率低下的整数排序算法

aimisiyou

1、以表lst中最小值，最大值构造逐步增1的有序表lst0;
2、对表lst0中每个元素e进行判断，若e在lst中，则输出e。

st788796

lst 元素都在 lst0

aimisiyou

st788796 发表于 2014-12-28 20:26
lst 元素都在 lst0

是啊，但是是对构造表lst0中的元素进行判断啊。比如lst=（9 3 7 2 8 1）则lst0=(1 2 3 4 5 6 7 8 9) ,进行操作后就得到（1 2 3 7 8 9），当然若lst中有重复的整数就剃掉了。

st788796

aimisiyou 发表于 2014-12-28 20:33
是啊，但是是对构造表lst0中的元素进行判断啊。比如lst=（9 3 7 2 8 1）则lst0=(1 2 3 4 5 6 7 8 9) ,进 ...

对 Lst 直接 (vl-sort lst '<)

aimisiyou

st788796 发表于 2014-12-28 20:38
对 Lst 直接 (vl-sort lst '

知道啊，vl-sort也会对重复的整数也会剔除。

st788796

aimisiyou 发表于 2014-12-28 20:44
知道啊，vl-sort也会对重复的整数也会剔除。

学会变通

1. (mapcar        'cadr
   
2.         (vl-sort (mapcar '(lambda (x)
   
3.                             (list (float x) x)
   
4.                           )
   
5.                          '(1 2 1 3 4 9 8 7)
   
6.                  )
   
7.                  '(lambda (x1 x2)
   
8.                     (< (car x1) (car x2))
   
9.                   )
   
10.         )
    
11. )
    

(mapcar        'cadr<br />         (vl-sort (mapcar '(lambda (x)<br />                             (list (float x) x)<br />                           )<br />                          '(1 2 1 3 4 9 8 7)<br />                  )<br />                  '(lambda (x1 x2)<br />                     (< (car x1) (car x2))<br />                   )<br />         )<br /> )<br />

(1 1 2 3 4 7 8 9)

_$ (mapcar 'cadr
(vl-sort (mapcar '(lambda (x)
       (list (float x) x)
     )
    '(1 2 1 3 4 9 8 7 3.0)
   )
   '(lambda (x1 x2)
      (< (car x1) (car x2))
    )
)
)
(1 1 2 3 3.0 4 7 8 9)
_$

aimisiyou

st788796 发表于 2014-12-28 20:53
学会变通

(1 1 2 3 4 7 8 9)

哦,原来如此啊……

st788796

aimisiyou 发表于 2014-12-28 20:59
哦,原来如此啊……

当然你也可以用 vl-sort-i + nth

aimisiyou

st788796 发表于 2014-12-28 21:04
当然你也可以用 vl-sort-i + nth

还是你的这种构造法比较好使些，多谢指教。

smzwx

(mapcar
  'cdr
  (vl-sort (mapcar '(lambda (x)
                      (list x 2)
                      )
                   '(1 2 1 3 4 9 8 7)
                   )
           '(lambda (x1 x2)
              (< (car x1) (car x2))
              )
           ))