排序？

yaopx0782

本人有一个类似如下的表：


((2 4 (5 3)) (5 2 (5 2)) (4 76 (54 23)) .......)


希望得到一个按照子表中的第二个元素排序的升序的表。


谢谢！

ZZXXQQ

程序: (DEFUN LSORT (DL I / K N DDL L1 L2 IPN J)
(SETQ K 0 N (LENGTH DL))
(WHILE (< K N) (SETQ J (1+ K) L1 (NTH K DL) IPN K)
(WHILE (< J N) (SETQ L2 (NTH J DL) J (1+ J))
(IF (> (NTH I L1) (NTH I L2)) (SETQ L1 L2 IPN (1- J)))
)
(IF (/= IPN K) (PROGN
(SETQ J 0 DDL (LIST))
(WHILE (< J K) (SETQ DDL (CONS (NTH J DL) DDL) J (1+ J)))
(SETQ DDL (CONS L1 DDL))
(WHILE (< J N)
(IF (/= J IPN) (SETQ DDL (CONS (NTH J DL) DDL)))
(SETQ J (1+ J))
)
(SETQ DL (REVERSE DDL))
))
(SETQ K (1+ K))
)
)

meflying

(vl-sort '((2 4 (5 3)) (5 2 (5 2)) (4 76 (54 23))) '(lambda(e1 e2) (&lt; (cadr e1) (cadr e2))))

yaopx0782

谢谢！

yaopx0782

感谢斑竹，感谢飞哥！