请教

wjm3

您好!


                                         请问有什么命令或函数可以判断列表((12 13) (25 26))与列表((25 26) (12 13))相等?

meflying

(equal (vl-sort lst1 '(lambda (e1 e2) (< (car e1) (car e2))))


                                                                                 (vl-sort lst2 '(lambda (e1 e2) (< (car e1) (car e2))))


)

无痕

(equal'((12 13) (25 26))'((25 26) (12 13))) -> nil
(equal'((12 13) (25 26))'((12 13) (25 26))) -> T

wjm3

谢谢二位能及时回复.


不好意思,都怪我没把要求写清楚.


我需要的功能是: 只要是列表内项数相同,每项能互相等同,不管位置顺序是否一样即为t,否则nil


例如:         ((12        34 14) (25 26 45) (40 . 1)) 与((25 26 45) (40 . 1) (12 34 14)) =t


        ((12        34 14) (25 26 45) (40 . 1)) 与((40 . 1) (25 26 45) (12 34 14)) =t


        ((12        34 14) (25 26 45) (40 . 1)) 与        ((12        34 14) (25 26 45) (40 . 1))         =t


((12        34 14) (25 26 45) (40 . 1)) 与        ((14 34 12) (25 26 45) (40 . 1))         =nil


((12        34 14) (25 26 45) (40 . 1)) 与        ((14 34 12) (25 26 45) (40 . 1) (34 23))         =nil


[或许列表更多项],