含容差的剔除表重复元素

Love-Lisp

递归法:

1. (defun XD::List:DelSameFuzz (l Fuzz)
   
2.   (if l
   
3.     (cons (car l)
   
4.           (XD::List:DelSameFuzz
   
5.             (vl-remove-if
   
6.               (function (lambda (x) (equal (car l) x Fuzz)))
   
7.               l
   
8.               )
   
9.             Fuzz
   
10.             )
    
11.           )
    
12.     )
    
13.   )
    

(defun XD::List:DelSameFuzz (l Fuzz)<br />   (if l<br />     (cons (car l)<br />           (XD::List:DelSameFuzz<br />             (vl-remove-if<br />               (function (lambda (x) (equal (car l) x Fuzz)))<br />               l<br />               )<br />             Fuzz<br />             )<br />           )<br />     )<br />   )<br />

非递归法:

1. (defun XD::List:DelSameFuzz (l Fuzz / ll)
   
2.   (while l
   
3.     (setq ll (cons (car l) ll)
   
4.           l  (vl-remove-if
   
5.                (function (lambda (x) (equal (car l) x Fuzz)))
   
6.                l
   
7.                )
   
8.           )
   
9.     )
   
10.   (reverse ll)
    
11.   )

(defun XD::List:DelSameFuzz (l Fuzz / ll)<br />   (while l<br />     (setq ll (cons (car l) ll)<br />           l  (vl-remove-if<br />                (function (lambda (x) (equal (car l) x Fuzz)))<br />                l<br />                )<br />           )<br />     )<br />   (reverse ll)<br />   )

GTJ116600

呵呵，这回有的学了。

pengfei2010

没看懂楼主的代码，这个是递归函数，我执行函数返回nil

Love-Lisp

pengfei2010 发表于 2013-6-6 16:41
没看懂楼主的代码，这个是递归函数，我执行函数返回nil

请给出实例看看！

cable2004

不错的源码！

q3_2006

还用不上，先收下！

dbqtju

还用不上，先收下！

yoyoho

感谢 Love-Lisp 分享函数!

dbqtju

这回有的学了。

dbqtju

这回有的学了。

czcxxx_01

不错的源码！

nnzj@163.com

lisp函数组合，巧妙地靠人发现

14702470

不错的代码