社区 › AutoLISP/Visual LISP 编程技术 › 求助！关于表的操作。（已解决）

dalin1985 发表于 2012-8-15 19:49:24

求助！关于表的操作。（已解决）

本帖最后由 dalin1985 于 2012-8-15 20:22 编辑

谁问如何获得表里的重复项？
如(1 2 3 1 2)获得(1 2)
      ("a" "b" "c" "a")获得("a")


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 dalin1985的微博

wowan1314 发表于 2012-8-15 20:12:49

在论坛下了个函数。小改了下貌似还可以
;; (T1 '(1 2 1 2 (1 1) (1 2) (1 2)))
(defun T1 (Lst / LstNew LstNew1)
(SETQ LstNew1 '())
(foreach _LstItem Lst
    (if (not (member _LstItem LstNew))
      (setq LstNew (append LstNew (list _LstItem)))
      (setq LstNew1 (CONS _LstItem LstNew1))
    )
)
LstNew1
)

dalin1985 发表于 2012-8-15 20:18:20

wowan1314 发表于 2012-8-15 20:12 static/image/common/back.gif
在论坛下了个函数。小改了下貌似还可以
;; (T1 '(1 2 1 2 (1 1) (1 2) (1 2)))
(defun T1 (Lst / LstNew...

非常感谢

aroom 发表于 2012-8-15 20:32:01

本帖最后由 aroom 于 2012-8-15 20:32 编辑

用 TeaScript 定义一个lambda 函数：

(defun get_dups(lst)
(filter (fn (x) (> (car (count (list x) lst)) 1)) (unique lst)))

preone 发表于 2012-8-15 21:28:01

wowan1314 发表于 2012-8-15 20:12 static/image/common/back.gif
在论坛下了个函数。小改了下貌似还可以
;; (T1 '(1 2 1 2 (1 1) (1 2) (1 2)))
(defun T1 (Lst / LstNew...

学习~

ynhh 发表于 2013-12-16 12:20:13

aroom 发表于 2012-8-15 20:32 static/image/common/back.gif
用 TeaScript 定义一个lambda 函数：

(defun get_dups(lst)


; 错误: no function definition: X

查看完整版本: 求助！关于表的操作。（已解决）