[求助]：如何清理表中重复项

走过小桥 · 发表于 2005-3-28 18:22:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求助高手
比如有这样一个表
(setq list(list '(25.01 5.22) '(203 51.6) '(78.2 8.16) '(25.01 5.22) '(68.45 44.1)))
表list中第一个元素 '(25.01 5.22) 与第三个元素相同
可以用什么方法清除后面重复的第三个元素

舟自横 · 发表于 2005-3-28 19:43:31

(SETQ NEEDLST YOURLIST)
(FOREACH ITEM YOURLIST (IF (VL-POSITION ITEM (VL-REMOVE ITEM NEEDLST))
(SETQ NEEDLST (VL-REMOVE ITEM NEEDLST))
)
)
YOURLIST是你要测试的列表
NEEDLST是你得到没有重复项的列表
THAT'S ALL!!!!

david96007 · 发表于 2005-3-28 21:00:43

楼上的虽然简单，但好像不行啊？！

舟自横 · 发表于 2005-3-28 22:15:49

不好意思,是有一点问题!呵呵!一时糊涂!修改了一下可以了!不用象楼上的那位仁兄那么复杂的
几句就行了!:::
(defun hy_erasedouble(nlist / needlist)
  (setq needlist nlist)
  (foreach item nlist (setq needlist (append (list item) (vl-remove item needlist)))
)
  (reverse needlist))
经测试无误!
NLIST 为需要测试的列表,返回值为去掉重复项的列表!
呵呵欢迎指教!

david96007 · 发表于 2005-3-28 22:36:18

楼上的初来乍到，就写出这么精简的程序，佩服！佩服！自叹不如！

啵浪鼓 · 发表于 2005-3-28 22:39:11

呵呵,楼上的可是编程高手,我们五金模具设计及LISP编程佼佼者哦

舟自横 · 发表于 2005-3-28 22:39:53

哪里那里!过奖了!
只是有一点兴趣而已!
楼上兄弟对VB了解怎样?有时间可以切磋一下子!

啵浪鼓 · 发表于 2005-3-28 22:42:09

朱小弟卖瓜,还自卖自夸了,呜呼~

舟自横 · 发表于 2005-3-28 22:52:25

一般拉!呵呵!
我已经好久没有用LISP写程序了!
我现在一般用VB或VC了!

啵浪鼓 · 发表于 2005-3-28 22:59:55

VB与VC有什么不同,哪个更易学,哪个更值得去学?

david96007 · 发表于 2005-3-28 23:11:10

原来你俩认识啊！恭喜恭喜！

啵浪鼓 · 发表于 2005-3-28 23:27:31

是啊,原本是在一家公司共事,由于个人原因,现在天各一方~!

aeo · 发表于 2005-3-29 23:32:01

我贴过
“清除重复点"找找

狂刀 · 发表于 2005-3-30 01:45:35

(defun tt (lst / lst2)
(mapcar '(lambda(x)(if (member x lst2) nil (setq lst2 (cons x lst2)))) lst)
(reverse lst2)
)

走过小桥 · 发表于 2005-3-30 17:41:33

这里果然是高手云集啊，谢谢舟自横、aeo和狂刀！

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

[求助] [求助]：如何清理表中重复项

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子