表的排序问题

winabcd

设有一如下所示的表
((23   2) (54   3) (756   3) (32   5) (11   9) (34   1))
想要按每一项的第一个数字（如：(23   2)中的23）的大小排序，得到如下的表
((11   9) (23   2) (32   5) (34   1) (54   3) (756   3))
请教各位有没有好的排序方法，

f5612140

指令: (setq a '((23 2) (54 3) (756 3) (32 5) (11 9) (34 1)))
((23 2) (54 3) (756 3) (32 5) (11 9) (34 1))

指令: (vl-sort a '(lambda (1% 2%)(< (car 1%)(car 2%))))
((11 9) (23 2) (32 5) (34 1) (54 3) (756 3))

winabcd

谢谢f5612140的即时帮助，你可帮了我大忙，我不知道这个函数，自己做一个要忙大半天。

sjj

如果 第一个数相同或相近（设置一个误差值）
按第二个数的大小排序
又如何排序？

/db_自贡黄明儒_

1. (defun Sort_XYZ_pList (PLIST fuzz / p1 p2)
   
2.   (setq        plist (vl-sort plist
   
3.                        '(lambda        (p1 p2)
   
4.                           (cond        ((< (car p1) (car p2)) T)
   
5.                                 ((and (equal (car p1) (car p2) fuzz)
   
6.                                       (< (cadr p1) (cadr p2))
   
7.                                  )
   
8.                                  T
   
9.                                 )
   
10.                                 ((and (equal (car p1) (car p2) fuzz)
    
11.                                       (equal (cadr p1) (cadr p2) fuzz)
    
12.                                       (< (caddr p1) (caddr p2))
    
13.                                  )
    
14.                                  T
    
15.                                 )
    
16.                                 (T nil)
    
17.                           )
    
18.                         )
    
19.               )
    
20.   )
    
21. )

(defun Sort_XYZ_pList (PLIST fuzz / p1 p2)<br />   (setq        plist (vl-sort plist<br />                        '(lambda        (p1 p2)<br />                           (cond        ((< (car p1) (car p2)) T)<br />                                 ((and (equal (car p1) (car p2) fuzz)<br />                                       (< (cadr p1) (cadr p2))<br />                                  )<br />                                  T<br />                                 )<br />                                 ((and (equal (car p1) (car p2) fuzz)<br />                                       (equal (cadr p1) (cadr p2) fuzz)<br />                                       (< (caddr p1) (caddr p2))<br />                                  )<br />                                  T<br />                                 )<br />                                 (T nil)<br />                           )<br />                         )<br />               )<br />   )<br /> )