求表处理函数

376394482

;;待处理表lst1

1. ;;待处理表lst1
   
2. (setq        lst1 '(
   
3.                                                  (0 3 3)
   
4.                                                  (0 2 2)
   
5.                                                  (0 1 1)
   
6.                                                  (1 1 1)
   
7.                                                  (1 3 3)
   
8.                                                  (1 2 2)
   
9.                                                  (2 3 3)
   
10.                                                  (2 1 1)
    
11.                                                  (2 2 2)
    
12.                                                         ;还有很多
    
13.                                                 )
    
14. )
    

;;待处理表lst1<br /> (setq        lst1 '(<br />                                                  (0 3 3)<br />                                                  (0 2 2)<br />                                                  (0 1 1)<br />                                                  (1 1 1)<br />                                                  (1 3 3)<br />                                                  (1 2 2)<br />                                                  (2 3 3)<br />                                                  (2 1 1)<br />                                                  (2 2 2)<br />                                                         ;还有很多<br />                                                 )<br /> )<br />

函数一：
步骤一：把lst1中按子表第一个元素大小从小到大排序，得到lst2，
步骤二：在lst2中，当子表第一个元素相同的情况下，按第二个元素大小冲大到小排序，得到目标表lst3

1. ;;目标表lst3
   
2. (setq        lst3 '(
   
3.                                                  (0 1 1)
   
4.                                                  (0 2 2)
   
5.                                                  (0 3 3)
   
6.                                                  (1 1 1)
   
7.                                                  (1 2 2)
   
8.                                                  (1 3 3)
   
9.                                                  (2 1 1)
   
10.                                                  (2 2 2)
    
11.                                                  (2 3 3)
    
12.                                                         ;还有很多
    
13.                                                 )
    
14. )
    

;;目标表lst3<br /> (setq        lst3 '(<br />                                                  (0 1 1)<br />                                                  (0 2 2)<br />                                                  (0 3 3)<br />                                                  (1 1 1)<br />                                                  (1 2 2)<br />                                                  (1 3 3)<br />                                                  (2 1 1)<br />                                                  (2 2 2)<br />                                                  (2 3 3)<br />                                                         ;还有很多<br />                                                 )<br /> )<br />

函数二：
根据lst3，把子表中的第一个元素取出并去重，得到lst4

1. (setq lst4 '(
   
2.                                                  0
   
3.                                                  1
   
4.                                                  2
   
5.                                                  ;还有很多
   
6.                                                  )
   
7. )
   

(setq lst4 '(<br />                                                  0<br />                                                  1<br />                                                  2<br />                                                  ;还有很多<br />                                                  )<br /> )<br />

函数三：
lst4中任意一个数，比如 0 ，求lst3中第一个元素为0，第三个元素的最小值，最大值，以表形式返回  （最小值  最大值）
如输入0，返回（1  3）

muwind

搜下表排序 很多的
推荐黄大师的
http://bbs.mjtd.com/forum.php?mo ... 1%ED%2B%C5%C5%D0%F2

vitalgg

1. (setq lst3
   
2.       (vl-sort
   
3.        lst1
   
4.        '(lambda (x y)
   
5.          (or (< (car x)(car y))
   
6.           (and (= (car x)(car y))
   
7.            (< (cadr x)(cadr y)))))))
   
8. (setq lst4 (vl-sort (mapcar 'car lst3) '<))
   

(setq lst3<br />       (vl-sort<br />        lst1<br />        '(lambda (x y)<br />          (or (< (car x)(car y))<br />           (and (= (car x)(car y))<br />            (< (cadr x)(cadr y)))))))<br /> (setq lst4 (vl-sort (mapcar 'car lst3) '<))<br />

http://atlisp.cn