[LISP函数]：如何判断两个表是否相同？

litss

两个表中存放着完全相同的点坐标数据，仅存放的位置被打乱了。用(equal)函数好像不能判别这两个表是相同的（我认为它们相同）。不知道大家有没有好的办法判别呢？

xyp1964

既然两个表内点坐标顺序不同，从严格意义来说两表当然是不同的。
关键要看对表如何应用，如果仅在每个坐标点插入图块就可以认为两表相同，如果要以坐标点画线就完全不能等同了！

2. [FONT=courier new];;;判断两表是否元素相同
   
3. (defun list-test (plst1 plst2)
   
4.   (foreach n plst1
   
5.     (if        (not (member n plst2))
   
6.       (setq a nil)
   
7.     )
   
8.   )
   
9.   (foreach n plst2
   
10.     (if        (not (member n plst1))
    
11.       (setq b nil)
    
12.     )
    
13.   )
    
14.   (if (or (= a nil) (= b nil))
    
15.     nil
    
16.     t
    
17.   )
    
18. )[/FONT]

[FONT=courier new];;;判断两表是否元素相同<br /> (defun list-test (plst1 plst2)<br />   (foreach n plst1<br />     (if        (not (member n plst2))<br />       (setq a nil)<br />     )<br />   )<br />   (foreach n plst2<br />     (if        (not (member n plst1))<br />       (setq b nil)<br />     )<br />   )<br />   (if (or (= a nil) (= b nil))<br />     nil<br />     t<br />   )<br /> )[/FONT]

taner

版主，如果a ，b本身爲nil，程序結果可能不對吧？是否應該加一句：

2. 
   
3.   [FONT=courier new]
   
4. (defun list-test (plst1 plst2 / a b)
   
5.   (setq        a t
   
6.         b t
   
7.   )
   
8.   (foreach n plst1
   
9.     (if        (not (member n plst2))
   
10.       (setq a nil)
    
11.     )
    
12.   )
    
13.   (foreach n plst2
    
14.     (if        (not (member n plst1))
    
15.       (setq b nil)
    
16.     )
    
17.   )
    
18.   (if (or (= a nil) (= b nil))
    
19.     nil
    
20.     t
    
21.   )
    
22. )
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun list-test (plst1 plst2 / a b)<br />   (setq        a t<br />         b t<br />   )<br />   (foreach n plst1<br />     (if        (not (member n plst2))<br />       (setq a nil)<br />     )<br />   )<br />   (foreach n plst2<br />     (if        (not (member n plst1))<br />       (setq b nil)<br />     )<br />   )<br />   (if (or (= a nil) (= b nil))<br />     nil<br />     t<br />   )<br /> )<br />   [/FONT]<br />

litss

感谢两位的帮忙

点表其实不是严格意义上的无序，仅仅是起点不一样而已。所以对画线没太大影响。

雨箭风刀

从效率上将，应该先判断表的长度，一样长再判断。。。
(defun tt (lst1 lst2 / )
  (or (= lst1 lst2 nil)
       (and (= (length lst1)(length lst2))
               (...)
       )
  )
)

litss

我换了个思路。
[php]
  (defun tt (plst1 plst2 / n pls1 pls2)
    (setq pls1 plst1
          pls2 plst2
    )
    (foreach n pls1
    (setq plst2 (vl-remove-if '(lambda (x)
                                 (equal x n 1e-3)
                               ) plst2
                ));setq
    );foreach
   
    (foreach n pls2
    (setq plst1 (vl-remove-if '(lambda (x)
                                 (equal x n 1e-3)
                               ) plst1
                ));setq
    );foreach
    (if (and
          (= plst1 '())
          (= plst2 '())
        )
      t
      nil
    );if
  );defun
[/php]

eachy

(equal (vl-sort plst1 '<) (vl-sort plst2 '<) 1e-3)

ll_j

最初由 eachy 发布
[B](equal (vl-sort plst1 '<) (vl-sort plst2 '<) 1e-3) [/B]

vl-sort 有局限性，对复杂的、包含不同类型元素的表无法进行。

雨箭风刀

（1 2 3 ）（3 2 1 2 3）算不算相同呢？用楼上的程序测试看看：）
返回是相同的

KERRYWM

比较一下表的长度即可

雨箭风刀

（１　１　２）（２　２　１）呢？
也算一样么？