表按指定顺序排列,特殊用途.

77077

求高手帮忙啊!

2. (defun sortl (l1 l2 / x l)
   
3.   (setq l '())
   
4.   (if (= (length l1)(length l2))
   
5.     (while (setq x (car l2))
   
6.        (setq l (cons (assoc x l1) l)
   
7.              l2 (cdr l2)
   
8.              )
   
9.     )
   
10.   )
    
11.   (reverse l)
    
12. )
    
13. ;测试测试
    
14. (sortl '(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二"))) '("赵" "钱" "孙" "李"))
    
15. ;==>(("赵" ("赵老大" "赵老二")) ("钱" ("钱老大" "钱老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")))

(defun sortl (l1 l2 / x l)<br />   (setq l '())<br />   (if (= (length l1)(length l2))<br />     (while (setq x (car l2))<br />        (setq l (cons (assoc x l1) l)<br />              l2 (cdr l2)<br />              )<br />     )<br />   )<br />   (reverse l)<br /> )<br /> ;测试测试<br /> (sortl '(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二"))) '("赵" "钱" "孙" "李"))<br /> ;==>(("赵" ("赵老大" "赵老二")) ("钱" ("钱老大" "钱老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")))

Gu_xl

1. (vl-sort '(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二")))
   
2.          '(lambda (a b) (< (VL-POSITION (car a) '("赵" "钱" "孙" "李")) (VL-POSITION (car b) '("赵" "钱" "孙" "李")))))

(vl-sort '(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二")))<br />          '(lambda (a b) (< (VL-POSITION (car a) '("赵" "钱" "孙" "李")) (VL-POSITION (car b) '("赵" "钱" "孙" "李")))))

自贡黄明儒

Gu_xl 发表于 2014-8-31 09:03

老大，好象不能按("赵" "钱" "孙" "李")排序

Gu_xl

自贡黄明儒 发表于 2014-9-15 16:04
老大，好象不能按("赵" "钱" "孙" "李")排序

结果：
(("赵" ("赵老大" "赵老二")) ("钱" ("钱老大" "钱老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")))
不对么？

自贡黄明儒

Gu_xl 发表于 2014-9-15 16:38
结果：
(("赵" ("赵老大" "赵老二")) ("钱" ("钱老大" "钱老二")) ("孙" ("孙老大" "孙老二")) ("李" (" ...

刚才在05下运行确实不对，现在重启cad运行，正常了

Gu_xl

自贡黄明儒 发表于 2014-9-15 16:46
刚才在05下运行确实不对，现在重启cad运行，正常了

估计你是看花眼了吧！这可不是段誉的六脉神剑，时灵时不灵！

llsheng_73

不用排序的一个办法，估计不如用位置排序来得快

1. (mapcar'(lambda(x)(vl-remove-if-not'(lambda(y)(=(car y)x))'(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二")))))'("赵" "钱" "孙" "李"))

(mapcar'(lambda(x)(vl-remove-if-not'(lambda(y)(=(car y)x))'(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二")))))'("赵" "钱" "孙" "李"))

如果用assoc不用vl-remove-if的话，当有多个的时候只能取到先出现的那个,比如下边这样就不能返回所有结果
(mapcar'(lambda(x)(assoc x'(("赵" ("赵老大" "赵老二"))("李" ("李老三" "李老四")) ("孙" ("孙老大" "孙老二"))
          ("赵" ("赵老四" "赵老三")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二")))))'("赵" "钱" "孙" "李"))

wayne_myles

都是高手，我就是来看看的

yhly555

Gu_xl 发表于 2014-8-31 09:03

类似的问题，可以实现按字母升序或降序来对字符串表进行排列吗？