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

dalin1985

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


该贴已经同步到 dalin1985的微博

wowan1314

在论坛下了个函数。小改了下貌似还可以
;; (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

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

非常感谢

aroom

用 TeaScript 定义一个lambda 函数：

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

preone

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

学习~

ynhh

aroom 发表于 2012-8-15 20:32
用 TeaScript 定义一个lambda 函数：

(defun get_dups(lst)

; 错误: no function definition: X