两个点表去重复代码

marting

1. ; Unique point list - iterative
   
2. (defun UqpL ( fuzz pL / L p )
   
3.   (while pL
   
4.     (setq p (car pL))
   
5.     (if (or (null L) (not (vl-some '(lambda (x) (equal x p fuzz)) L))) (setq L (cons p L)) )
   
6.     (setq pL (cdr pL))
   
7.   ); while
   
8.   (reverse L)
   
9. ); defun UqpL
   

; Unique point list - iterative<br /> (defun UqpL ( fuzz pL / L p )<br />   (while pL<br />     (setq p (car pL))<br />     (if (or (null L) (not (vl-some '(lambda (x) (equal x p fuzz)) L))) (setq L (cons p L)) ) <br />     (setq pL (cdr pL))<br />   ); while<br />   (reverse L)<br /> ); defun UqpL<br />

上面代码保留第一个，删除余下重复的

命令: (UQPL 0.1 '((0.0 0.0 0.0) (0.001 0.0001 0.0)))
((0.0 0.0 0.0))

1. ; Unique point list - iterative
   
2. (defun UqpL ( fuzz pL / L p )
   
3.   (while pL
   
4.     (setq p (car pL))
   
5.     (or (vl-some '(lambda (x) (equal x p fuzz)) (cdr pL)) (setq L (cons p L)) )
   
6.     (setq pL (cdr pL))
   
7.   ); while
   
8.   (reverse L)
   
9. ); defun UqpL
   

; Unique point list - iterative<br /> (defun UqpL ( fuzz pL / L p )<br />   (while pL <br />     (setq p (car pL))<br />     (or (vl-some '(lambda (x) (equal x p fuzz)) (cdr pL)) (setq L (cons p L)) )<br />     (setq pL (cdr pL))<br />   ); while<br />   (reverse L)<br /> ); defun UqpL<br />

上面代码保留最后一个，删除之前的。

命令: (UQPL 0.1 '((0.0 0.0 0.0) (0.001 0.0001 0.0)))
((0.001 0.0001 0.0))