（XD::LIST:Simlists）判断两个表是否相等（不考虑元素顺序）

marting

1. (defun simlists (lst1 lst2 / val)
   
2.   (while
   
3.     (and
   
4.       (= (length lst1) (length lst2))
   
5.       (not (setq val (equal lst1 lst2)))
   
6.     )
   
7.     (setq lst2 (vl-remove (car lst1) lst2)
   
8.           lst1 (vl-remove (car lst1) lst1)
   
9.     )
   
10.   )
    
11.   val
    
12. )
    

(defun simlists (lst1 lst2 / val)<br />   (while<br />     (and<br />       (= (length lst1) (length lst2))<br />       (not (setq val (equal lst1 lst2)))<br />     )<br />     (setq lst2 (vl-remove (car lst1) lst2)<br />           lst1 (vl-remove (car lst1) lst1)<br />     )<br />   )<br />   val<br /> )<br />

aimisiyou

先排序，再一一比较。