[编程申请]：如何提取列表中相同的元素

tc405003

如何提取列表中相同的元素
如:                  命令 '(a1 a2 a3 a4 a4)
得到             (a4)

舟自横

2. (defun hy_listdoublep (lip / ulist)
   
3.   (setq ulist nil)
   
4.   (foreach item        lip
   
5.     (if        (and (member item lip)
   
6.              (not (member item ulist))
   
7.         )
   
8.       (setq ulist (cons item ulist))
   
9.     )
   
10.   )
    
11.   (reverse ulist)
    
12. )

(defun hy_listdoublep (lip / ulist)<br />   (setq ulist nil)<br />   (foreach item        lip<br />     (if        (and (member item lip)<br />              (not (member item ulist))<br />         )<br />       (setq ulist (cons item ulist))<br />     )<br />   )<br />   (reverse ulist)<br /> )

tc405003

楼主好像有点问题；
你给的源码好像是删除列表中相同的元素而不是只求得相同的元素

eachy

http://www.xdcad.net/forum/showthread.php?threadid=468616

tc405003

版主:这样子是不是有点复杂
没有直接从一个列表中得到重复的元素吗？

eachy

最初由 tc405003 发布
[B]版主:这样子是不是有点复杂
没有直接从一个列表中得到重复的元素吗？ [/B]

你的表难道只有一个元素是重复的？

舟自横

稍作修改:

2. 
   
3. (defun hy_listdoublep (lip / ulist)
   
4.   (setq ulist nil)
   
5.   (foreach item        lip
   
6.     (if        (and (member item (cdr(member item lip)))
   
7.              (not (member item ulist))
   
8.         )
   
9.       (setq ulist (cons item ulist))
   
10.     )
    
11.   )
    
12.   (reverse ulist)
    
13. )

<br /> (defun hy_listdoublep (lip / ulist)<br />   (setq ulist nil)<br />   (foreach item        lip<br />     (if        (and (member item (cdr(member item lip)))<br />              (not (member item ulist))<br />         )<br />       (setq ulist (cons item ulist))<br />     )<br />   )<br />   (reverse ulist)<br /> )

测试:(HY_LISTDOUBLEP '(1 1 0 2 3 1 5 8 1 7 6 6 1 2 3))返回(1 2 3 6)

tc405003

不至一个重复！谢谢各位大佬