表的排序问题

liujing

有一表，形式如下：
（（“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）
  。。。
）
现要对表进行排序，先按子表中的第一项排序，如果第一项相同，则按第二项进行排序，
第一项和第二项不会同时相同。
请问大家有没有好的方法。

前生

雷

龙龙仔

(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)
                              )
                            )
                  )
         )
)

liujing

再次感谢大家的帮助。

前生

cy956

前生

[此贴子已经被前生于2002-11-14 16:13:38编辑过]