表的排序问题

liujing · 发表于 2002-11-13 16:28:00

有一表，形式如下：
（（“A1” “B3”1 2 3 4）
  （“A1” “B7”2 3 4 5）
  （“A2” “B4”3 2 5 7）
  （“A2” “B3”1 2 3 4）
  （“A3” “B7”2 3 4 5）
  （“A3” “B4”3 2 5 7）
  。。。
）
现要对表进行排序，先按子表中的第一项排序，如果第一项相同，则按第二项进行排序，
第一项和第二项不会同时相同。
请问大家有没有好的方法。

liujing · 发表于 2002-11-14 07:56:00

(setq QQ '(("A1" "B3" 1 2 3 4)
         ("A3" "B4" 3 2 5 7)
         ("A1" "B7" 2 3 4 5)
         ("A5" "B4" 3 2 5 7)
         ("A2" "B3" 1 2 3 4)
         ("A5" "B1" 3 2 5 7)
         ("A3" "B7" 2 3 4 5)
      )
)
(setq QQ (vl-sort QQ
               (function (lambda (P1 P2)
                           (cond ((< (car P1) (car P2)) t)
                                 ((and (= (car P1) (car P2))
                                       (< (cadr P1) (cadr P2))
                                 )
                                 t
                                 )
                                 (t NIL)
                           )
                        )
               )
      )
)