清除表内重复元素

ljxkm

函数名称:清除表内重复元素:clear-dupelem (Lst / lst1)
参数：Lst--表
;;;;示例clear-dupelem '(1 2 3 "a" "b" 1 3 7 8 9 9 "c"))-->(1 2 3 "a" "b" 7 8 9 "c")
;;;;函数作者:    jixiangluo
;;;;最后修改日期2020.6.24
(defun clear-dupelem (Lst / lst1)
  (setq Lst1 '())
  (foreach x Lst (if (not (member x Lst1))
                   (setq Lst1 (append Lst1 (list x)))
                   Lst1)
  )
)

;;;函数名称:清除表内指定元素的重复元素:clear-spedupelem (sym Lst / lst1 lst2)
;;;;参数：sym--重复元素，Lst--表
;;;;示例clear-spedupelem 1 '(1 2 3 "a" "b" 1 3 7 8 9 9 "c"))-->(1 2 3 "a" "b" 3 7 8 9 9 "c")
;;;;函数作者:    jixiangluo
;;;;最后修改日期2020.6.29

(defun clear-spedupelem (sym Lst / lst1 lst2)
  (setq Lst1 '()
          lst2 '()      
  )
  (foreach x lst (cond
                   ((and (= lst1 nil) (= x sym)) (setq lst1 (cons x lst1) lst2 (cons x lst2)))
                   ((/= x sym) (setq lst2 (cons x lst2))))
  )
  (setq lst2 (reverse lst2))
);;;;defun

xvjiex

会不会这样的？(1 2 3 "a" "b" 1 3 7 8 9 9 "c")->( 2 "a" "b" 1 3 7 8 9 9 "c")

原地踏步

如果表可能比较长的话，用cons比用append好些。

ljxkm

再贴一个函数，清除表内指定元素的重复元素
;;;;函数名称:清除表内指定元素的重复元素:clear-spedupelem (sym Lst / lst1 lst2)
;;;;参数：sym--重复元素，Lst--表
;;;;示例clear-spedupelem 1 '(1 2 3 "a" "b" 1 3 7 8 9 9 "c"))-->(1 2 3 "a" "b" 3 7 8 9 9 "c")
;;;;函数作者:    jixiangluo
;;;;最后修改日期2020.6.28

(defun clear-spedupelem (sym Lst / lst1 lst2)
  (setq Lst1 '()
          lst2 '()       
  )
  (foreach x lst (cond
                   ((and (= lst1 nil) (= x sym)) (setq lst1 (cons x lst1) lst2 (cons x lst2)))
                   ((/= x sym) (setq lst2 (cons x lst2))))
  )
  (setq lst2 (reverse lst2))
);;;;defun