列表去除重复项，有重复的保留1次

wosiguwozai0830

;列表去除重复项，有重复的保留1次
;(qcchongfu '(1 2 1 2 3 4 5 1))-> (2 3 4 5 1)

(defun qcchongfu(sjb / newb)
        (setq newb sjb)
        (foreach a sjb
                (setq newb(append (vl-remove a newb)(list a)))
        )
        newb
)

liuhe

2. (defun LM:Unique (l)
   
3. ;;;;;;删除表中重复项无容差
   
4.     (if        l
   
5.       (cons (car l) (LM:Unique (vl-remove (car l) (cdr l))))
   
6.     )
   
7.   )

(defun LM:Unique (l)<br /> ;;;;;;删除表中重复项无容差<br />     (if        l<br />       (cons (car l) (LM:Unique (vl-remove (car l) (cdr l))))<br />     )<br />   )

leemac大神的，可以是嵌套表，对元素没有要求，数字。字符串、表都可以。楼主发的只能一个表。
leemac  有一些递归函数很精妙

liuhe

正能量的一诺 发表于 2023-2-27 15:34
递归数据多了好像就卡住了，怎么办

我只了解一点，递归是栈之类的，会占用内存。原理是把所有数据读取出来储存在内存中，直到最后一个有返回值，才会回收前面的栈，如果数据很大，就会栈溢出。通俗说法是，用内存换效率，内存不够，就用其他办法吧

liuhe

2. (defun LM:RemoveNth (n l)
   
3. ;;;;去除第N项
   
4.   (if (and l (< 0 n))
   
5.     (cons (car l) (LM:RemoveNth (1- n) (cdr l)))
   
6.     (cdr l)
   
7.   )
   
8. )
   
9. 
   
10. 这个递归也很精妙

(defun LM:RemoveNth (n l)<br /> ;;;;去除第N项<br />   (if (and l (< 0 n))<br />     (cons (car l) (LM:RemoveNth (1- n) (cdr l)))<br />     (cdr l)<br />   )<br /> )<br /> <br /> 这个递归也很精妙

jun353835273

2. (defun delsame(l1 / l2)
   
3.   (while(setq l2(cons(car l1)l2)l1(vl-remove(car l1)(cdr l1))))
   
4.   (reverse l2)
   
5.   )

(defun delsame(l1 / l2)<br />   (while(setq l2(cons(car l1)l2)l1(vl-remove(car l1)(cdr l1))))<br />   (reverse l2)<br />   )

也是论坛之前看到的，忘了是那个大佬的了。

376394482

支持一下         .

Klein

jun353835273 发表于 2023-1-10 10:31
也是论坛之前看到的，忘了是那个大佬的了。

这个写法厉害了，简洁粗暴，赞

wosiguwozai0830

jun353835273 发表于 2023-1-10 10:31
也是论坛之前看到的，忘了是那个大佬的了。

这写法厉害了

wosiguwozai0830

liuhe 发表于 2023-1-10 14:43
leemac大神的，可以是嵌套表，对元素没有要求，数字。字符串、表都可以。楼主发的只能一个表。
leemac ...

果然很精妙，学习了

技术工作室

jun353835273 发表于 2023-1-10 10:31
也是论坛之前看到的，忘了是那个大佬的了。

这写法厉害了，我测试过

magicheno

学习了，感谢大佬~~~