如何过滤列表中的重复值

walong

如何过滤列表中的重复出现的数值


如将


(WL1 WL2 WL0 WL1 WL3 WL4 WL5 WL3 WL4 WL5)


过滤后成


(WL1 WL2 WL0        WL3 WL4 WL5 )


请大家帮助

alin

(DEFUN c:TT (/ LST RET)
(SETQ LST '(WL1 WL2 WL0 WL1 WL3 WL4 WL5 WL3 WL4 WL5))
(FOREACH ATM LST
(IF (NOT (MEMBER ATM RET))
(SETQ RET (CONS ATM RET))
)
)
(reverse RET)
)

无痕

2. (setq lst '(WL1 WL2 WL0 WL1 WL3 WL4 WL5 WL3 WL4 WL5))
3. (mapcar 'read(vl-sort (mapcar 'vl-symbol-name lst) '< ))
4. ->(WL0 WL1 WL2 WL3 WL4 WL5)

(setq lst '(WL1 WL2 WL0 WL1 WL3 WL4 WL5 WL3 WL4 WL5)) (mapcar 'read(vl-sort (mapcar 'vl-symbol-name lst) '< )) ->(WL0 WL1 WL2 WL3 WL4 WL5)

aeo000000

无痕发表于2004-7-7 9:00:00(setq lst '(WL1 WL2 WL0 WL1 WL3 WL4 WL5 WL3 WL4 WL5))(mapcar 'read(vl-sort (mapcar 'vl-symbol-name lst) '< ))->(WL0 WL1 WL2 WL...

楼主的是"数值" WL?都是一个数, vl-sort恐怕不行.

meflying

1. 楼主的是"数值"     WL?都是一个数, vl-sort恐怕不行.
2. 吹毛求疵！！！！！！！！！

复制代码

无痕

aeo000000发表于2004-7-7 23:31:00以下是引用无痕在2004-7-7 9:00:14的发言： (setq lst '(WL1 WL2 WL0 WL1 WL3 WL4 WL5 WL3 WL4 WL5))(mapc...

我理解楼主的wl？是变量，我写的也是对变量名进行过滤。如果是数值，那就不用说了吧？直接vl-sort

复制代码

walong

已能满足我的要求啦，多谢大家!

caizeping

无痕 发表于 2004-7-8 10:48
我理解楼主的wl？是变量，我写的也是对变量名进行过滤。如果是数值，那就不用说了吧？直接vl-sort

要是带小数点的数字怎么办啊

yjr111

刚刚知道程序有效率问题，foreach确实比vl-remove-if慢很多，修改alin的程序后测试一下速度至少快4倍以上

2. ;;;;;;;;删除重复表元素后组成新表，且不改变原表重复表元素的第一个出现的位置;;;;;;;;;;;
   
3. (defun deldup2(lst)
   
4. (setq ret '())
   
5. (vl-remove-if (function (lambda(x)(IF (NOT (MEMBER x RET))
   
6. (SETQ RET (CONS x RET))nil)))lst)
   
7. (reverse RET)
   
8.   )

;;;;;;;;删除重复表元素后组成新表，且不改变原表重复表元素的第一个出现的位置;;;;;;;;;;;<br /> (defun deldup2(lst)<br /> (setq ret '())<br /> (vl-remove-if (function (lambda(x)(IF (NOT (MEMBER x RET))<br /> (SETQ RET (CONS x RET))nil)))lst)<br /> (reverse RET)<br />   )