一个不改变表中各原子位置的排序

阿然

近期在做一些练习的时候突然需要将一个列表排序，但是不能改变表中各原子的位置，写了下面一段代码，个人觉得太烦琐，希望各位大大能帮忙看下，或者有更简单的思路提供参考。

1. 
   
2. ;;;计算一个整数序列表，获得一个列表，每项原子均代表的该原子在原列表中的排名
   
3. ;;;例如:         (Caldelta '(2 4 3 6 8 9 5 20 56))
   
4. ;;;得到结果:                (1 3 2 5 6 7 4  8  9)
   
5. ;;;实际使用: 可以在一系列带序号的标注文字中删除某些标注文字，重新按照原来的大小
   
6. ;;;          顺序排列这些序号，如'(1 3 5 7 9 2 4 6 8)这个列表中删除了(1 5 7)
   
7. ;;;          得到新的序列         (3 9 2 4 6 8)
   
8. ;;;          这时可以对这个序列重新排序
   
9. ;;;          得到                 (2 6 1 3 4 5)
   
10. (defun CalDelta (numberlist /     indexlist sortlist
    
11.       sortdelta len     count countlist
    
12.       deltalist
    
13.      )
    
14.   (setq indexlist (vl-sort-i numberlist '<);_按从小到大的顺序求索引表
    
15. sortlist  (vl-sort numberlist '<);_按从小到大的顺序排序
    
16. len   (length numberlist);_表长度
    
17. count   0
    
18.   )
    
19.   (repeat len
    
20.     (setq count (1+ count))
    
21.     (setq countlist (cons count countlist))
    
22.   );_构造列表(len...5 4 3 2 1)
    
23.   (setq countlist (reverse countlist));_倒序
    
24.   (setq sortdelta (mapcar '- sortlist countlist));_得到从小到大的顺序排序差值
    
25.   (setq deltalist (mapcar 'cons indexlist sortdelta));_构造索引表各元素和差值表的点对表
    
26.   (setq deltalist
    
27.   (vl-sort deltalist
    
28.     (function (lambda (e1 e2) (< (car e1) (car e2))));_点对表按照索引表顺序排列
    
29.   )
    
30.   )
    
31.   (setq deltalist (mapcar 'cdr deltalist));_得到差值表
    
32.   (mapcar '- numberlist deltalist)
    
33. )
    

<br /> ;;;计算一个整数序列表，获得一个列表，每项原子均代表的该原子在原列表中的排名<br /> ;;;例如:         (Caldelta '(2 4 3 6 8 9 5 20 56))<br /> ;;;得到结果:                (1 3 2 5 6 7 4  8  9)<br /> ;;;实际使用: 可以在一系列带序号的标注文字中删除某些标注文字，重新按照原来的大小<br /> ;;;          顺序排列这些序号，如'(1 3 5 7 9 2 4 6 8)这个列表中删除了(1 5 7)<br /> ;;;          得到新的序列         (3 9 2 4 6 8)<br /> ;;;          这时可以对这个序列重新排序<br /> ;;;          得到                 (2 6 1 3 4 5)<br /> (defun CalDelta (numberlist /     indexlist sortlist<br />       sortdelta len     count countlist<br />       deltalist<br />      )<br />   (setq indexlist (vl-sort-i numberlist '<);_按从小到大的顺序求索引表<br /> sortlist  (vl-sort numberlist '<);_按从小到大的顺序排序<br /> len   (length numberlist);_表长度<br /> count   0<br />   )<br />   (repeat len<br />     (setq count (1+ count))<br />     (setq countlist (cons count countlist))<br />   );_构造列表(len...5 4 3 2 1)<br />   (setq countlist (reverse countlist));_倒序<br />   (setq sortdelta (mapcar '- sortlist countlist));_得到从小到大的顺序排序差值<br />   (setq deltalist (mapcar 'cons indexlist sortdelta));_构造索引表各元素和差值表的点对表<br />   (setq deltalist<br />   (vl-sort deltalist<br />     (function (lambda (e1 e2) (< (car e1) (car e2))));_点对表按照索引表顺序排列<br />   )<br />   )<br />   (setq deltalist (mapcar 'cdr deltalist));_得到差值表<br />   (mapcar '- numberlist deltalist)<br /> )<br />

Gu_xl

(setq l '(2 4 3 6 8 9 5 20 56))
(mapcar '(lambda (X) (1+ (VL-POSITION x (vl-sort l '(lambda (a b) (< a b)))))) l)

阿然

好强！拜一个

pengfei2010

楼主你好，我看了这个帖子好几遍，没看懂你说的啥意思，能解释一下吗？谢谢

pengfei2010

看懂了，我晕，这个有啥作用呀，呵呵