[LISP函数]判断lst中是否存在相同的元素

张和平

2. ;判断lst中是否存在相同的元素 by PEACE 2013/07/26
   
3. ;存在则给出T，不存在则给出nil
   
4. (defun PEACE:LIST_IsThereSame(lst / s)
   
5.   (setq s nil)
   
6.   (repeat (- (length lst) 1)
   
7.     (if (member (car Lst) (cdr Lst))
   
8.       (setq s t)
   
9.     )
   
10.     (setq lst (cdr lst))
    
11.   )
    
12.   s
    
13. )

;判断lst中是否存在相同的元素 by PEACE 2013/07/26<br /> ;存在则给出T，不存在则给出nil<br /> (defun PEACE:LIST_IsThereSame(lst / s)<br />   (setq s nil)<br />   (repeat (- (length lst) 1)<br />     (if (member (car Lst) (cdr Lst))<br />       (setq s t)<br />     )<br />     (setq lst (cdr lst))<br />   )<br />   s<br /> )

newer

楼主，是否应该找到一个后就终止循环尼？ 否则如果表很长，前几个就找到了，还要循环到结尾，效率低了。

张和平

newer 发表于 2013-8-16 12:36
楼主，是否应该找到一个后就终止循环尼？ 否则如果表很长，前几个就找到了，还要循环到结尾，效率低了。

有道理哦。。。

XDnpu349

程序还是8错

caixing417

很厉害的程序