表元素除重

Love-Lisp

递归法:

1. (defun XD::List:DelSame (l)
   
2.   (if l
   
3.    (cons (car l) (XD::List:DelSame (vl-remove (car l) l)))
   
4. )
   
5. )

(defun XD::List:DelSame (l)<br />   (if l<br />    (cons (car l) (XD::List:DelSame (vl-remove (car l) l)))<br /> )<br /> )

非递归版本:

1. (defun XD::List:DelSame (l / ll)  (while l
   
2.     (setq ll (cons (car l) ll)
   
3.           l (vl-remove (car l) l)
   
4.     )
   
5.   )
   
6.   (reverse ll)
   
7. )
   

(defun XD::List:DelSame (l / ll)  (while l<br />     (setq ll (cons (car l) ll)<br />           l (vl-remove (car l) l)<br />     )<br />   )<br />   (reverse ll)<br /> )<br />

Lisphk

谢谢，提个修改建议，如果L给的不是表参数，是不是会有错误？用不用判断下是不是表作为参数？ 另外能不能提供一个不是递归的版本的？再另外，希望给大家写个

1、删除指定元素
2、删除指定位置之间的所有元素
3、在指定的位置插元素
4、关联表两个关键字之间的所有元素
5、指定两个位置之间的所有元素
6、返回指定元素后面指定数量的元素（不给就到底）
7、交换指定位置的两个元素

哈，是不是有点烦人{:soso_e106:}

Lisphk

对了，名字改为 XD::List:RemoveDup, XD::List:RDup 能好点不。

GTJ116600

好函数，学习了。

Love-Lisp

Lisphk 发表于 2013-6-6 12:47
谢谢，提个修改建议，如果L给的不是表参数，是不是会有错误？用不用判断下是不是表作为参数？ 另外能不能提 ...

个人认为，参数l是不是表无需在函数里判断，增加判断会降低效率，用该函数前就应该已经对参数l做过限定了，没有规矩，不成方圆，不能把什么数据都往函数里代吧！
其他些个表处理函数，有空时慢慢写来再贴出来！止于函数叫什么名称，无所谓吧，能看懂就行！

pengfei2010

很厉害 学习了，递归函数对于数据较大时  会出错

dnbcgrass

当表的长度很大时，递归有问题！

marting

对不是原子的表适合不？

'((1 2 3 5)(3 4 5)(1 2 3 5)...)

Love-Lisp

marting 发表于 2013-6-6 23:22
对不是原子的表适合不？

'((1 2 3 5)(3 4 5)(1 2 3 5)...)

对不是原子的表可以！

q3_2006

要试了才好说，先收下！

wowan1314

我弄个不递归的。

2. ;;得到表中重复次数 及 删除重复后的表
   
3. ;; (t1 '(1 2 1 2 (1 1) (1 2) (1 2) 1 2))
   
4. (defun t1 (lst / lst1 lst2)
   
5.     (mapcar
   
6.         '(lambda(x)
   
7.             (if (member x lst2)
   
8.                 (setq lst1 (cons x lst1))
   
9.                 (setq lst2 (cons x lst2))
   
10.             )
    
11.         )
    
12.         lst
    
13.     )
    
14.     (list (length lst1) lst2)
    
15. )

;;得到表中重复次数 及 删除重复后的表 <br /> ;; (t1 '(1 2 1 2 (1 1) (1 2) (1 2) 1 2)) <br /> (defun t1 (lst / lst1 lst2) <br />     (mapcar<br />         '(lambda(x)<br />             (if (member x lst2)<br />                 (setq lst1 (cons x lst1))<br />                 (setq lst2 (cons x lst2))<br />             )<br />         )<br />         lst<br />     )<br />     (list (length lst1) lst2)<br /> )

Lisphk

wowan1314 发表于 2013-7-25 18:30
我弄个不递归的。

直观感觉，是不是能用vl-member-if 改造下？

pzweng

这个函数不稳定，对元素没有fuzz判断,特别是对获取的点表无法删除重项

kkt123

好函数，学习了;P