请问如何过滤表中相同元素？

tm20038175 · 发表于 2012-3-26 00:23:59

例如有个表
lst=("16AH36" "17AH36" "16AH36" 23 25 25)
需要过滤成（去掉相同元素）
lst=("16AH36" "17AH36" 23 25)
有什么办法吗？

cabinsummer · 发表于 2012-3-26 07:29:08

此问题在论坛里早有答案，我的“智能技术要求库”里就有这个函数

注册 · 发表于 2012-3-26 07:50:29

cabinsummer 好早啊

tm20038175 · 发表于 2012-3-26 08:15:29

cabinsummer 发表于 2012-3-26 07:29
此问题在论坛里早有答案，我的“智能技术要求库”里就有这个函数

恩，请问您的库能提供下载吗？或者能给出此过滤函数的代码？谢谢啦…………

tm20038175 · 发表于 2012-3-26 08:22:50

cabinsummer 发表于 2012-3-26 07:29
此问题在论坛里早有答案，我的“智能技术要求库”里就有这个函数

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92135
是这个吗？代码好多呀，我找不到过滤表的那个函数~~~~~

Gu_xl · 发表于 2012-3-26 10:40:15

本帖最后由 Gu_xl 于 2012-3-26 13:08 编辑

tm20038175 发表于 2012-3-26 08:22
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92135
是这个吗？代码好多呀，我找不到过滤表的那个 ...

(defun delsame (lst) (if lst (cons (car lst) (delsame (vl-remove (car lst) lst)))))

注册 · 发表于 2012-3-26 12:10:20

G版无处不在，佩服

soly2006 · 发表于 2012-3-26 16:51:51

看member函数

pxt2001 · 发表于 2012-3-27 22:17:55

本帖最后由 pxt2001 于 2012-3-27 22:18 编辑

收集的函数。

;;删除列表中的相同元素(保留一个)并返回新表
(defun LstDelSame( Lst / Lst1 n)
(setq Lst1 '())
(foreach n Lst
(if (not (member n Lst1))
(setq Lst1 (cons n Lst1))
)
)
(reverse Lst1)
)

账号		自动登录	找回密码
密码			注册

请问如何过滤表中相同元素？

点评

浏览过的版块