求助表按坐标点排序

lisp爱好者

各位大师：
     请教下：一个lst表中有n个类似((0 0 0) 2 5)的小表，小表内(0 0 0) 为坐标点，后面两个数可以不管，只按坐标点排序
(setq lst '(((250 120 0)2 5)((0 120 0)2 5)((0 0 0) 2 5)((250 0 0)2 5)((125 0 0)2 5)((125 120 0)2 5)));赋值lst表
如何排序成从左到右，从下到上的表： '(((0 0 0) 2 5)((125 0 0)2 5)((250 0 0)2 5)((0 120 0)2 5)((125 120 0)2 5))((250 120 0)2 5))

lisp爱好者

小表((0 0 0) 2 5)中后面数字2和5是由变量赋值的，请求大家帮忙，谢谢

lisp爱好者

试出来了，大家有没有更好的方法？烦请赐教

2. (setq lst1(vl-sort lst
   
3.       '(lambda (x y)
   
4.          (if (equal (caar x) (caar y) 10)
   
5.            (< (cadar x) (cadar y))
   
6.            (< (caar x) (caar y))
   
7.          )
   
8.        )
   
9.    )
   
10.   )

(setq lst1(vl-sort lst<br />       '(lambda (x y)<br />          (if (equal (caar x) (caar y) 10)<br />            (< (cadar x) (cadar y))<br />            (< (caar x) (caar y))<br />          )<br />        )<br />    )<br />   )

lisp爱好者

没细看，结果错误，大侠们人呢。

lisp爱好者

明白了，还差一个步续，再排一次

ll_j

1. (defun tt (lst)  ;主程序
   
2.   (setq lst (sort lst < cadar))
   
3.   (sort2 lst)
   
4. )
   
5. 
   
6. (defun sort (lst fun n)  ;一级排序
   
7.   (vl-sort lst '(lambda (x y) (fun (n x) (n y))))
   
8. )
   
9. 
   
10. (defun sort2 (lst)    ;二级排序
    
11.   (if lst
    
12.     (append
    
13.       (apply 'list
    
14.              (sort
    
15.                (vl-remove-if-not
    
16.                  '(lambda (x) (= (cadar x) (cadaar lst)))
    
17.                  lst
    
18.                )
    
19.                <
    
20.                caar
    
21.              )
    
22.       )
    
23.       (sort2
    
24.         (vl-remove-if '(lambda (x) (= (cadar x) (cadaar lst))) lst)
    
25.       )
    
26.     )
    
27.   )
    
28. )

(defun tt (lst)  ;主程序<br />   (setq lst (sort lst < cadar))<br />   (sort2 lst)<br /> )<br /> <br /> (defun sort (lst fun n)  ;一级排序<br />   (vl-sort lst '(lambda (x y) (fun (n x) (n y))))<br /> )<br /> <br /> (defun sort2 (lst)    ;二级排序<br />   (if lst<br />     (append<br />       (apply 'list<br />              (sort<br />                (vl-remove-if-not<br />                  '(lambda (x) (= (cadar x) (cadaar lst)))<br />                  lst<br />                )<br />                <<br />                caar<br />              )<br />       )<br />       (sort2<br />         (vl-remove-if '(lambda (x) (= (cadar x) (cadaar lst))) lst)<br />       )<br />     )<br />   )<br /> )

ll_j

lisp爱好者 发表于 2013-9-2 14:50
试出来了，大家有没有更好的方法？烦请赐教

1. (setq lst1 (vl-sort lst
   
2.                     '(lambda (x y)
   
3.                        (if (equal (cadar x) (cadar y) 10)
   
4.                          (< (caar x) (caar y))
   
5.                          (< (cadar x) (cadar y))
   
6.                        )
   
7.                      )
   
8.            )
   
9. )

(setq lst1 (vl-sort lst<br />                     '(lambda (x y)<br />                        (if (equal (cadar x) (cadar y) 10)<br />                          (< (caar x) (caar y))<br />                          (< (cadar x) (cadar y))<br />                        )<br />                      )<br />            )<br /> )

楼主的还是很巧妙的，我的自己绕自己了。