重开贴：关于消除相邻重复点，理论上这两种方式哪种更快

HLCAD

1121443108qaz 发表于 2018-4-21 19:09
(setq plist '((1 8)(1 8)(1 7)(1 6)(1 6)(1 6)(1 5)(1 8)(1 8))) 如果首尾两元素一样，你的函数就不起作 ...

将函数中的:  (cons tmp plist)
改为:   (append (cdr plist) (list (car plist)))

HLCAD

newer 发表于 2018-4-21 18:21
相邻的重复删除应用的太窄了吧。

1. ;;; 仅保留表中的非重复点:
   
2. ;;; by HLCAD
   
3. (defun HL:TMP (plist / tmp rtn)
   
4.   (while (vl-remove nil plist)
   
5.     (setq tmp (car plist))
   
6.     (setq rtn (cons tmp rtn))
   
7.     (setq plist (vl-remove-if '(lambda(x) (equal tmp x 0.001)) (cdr plist)))
   
8.     )
   
9.   (reverse rtn)
   
10.   )
    

;;; 仅保留表中的非重复点:<br /> ;;; by HLCAD<br /> (defun HL:TMP (plist / tmp rtn)<br />   (while (vl-remove nil plist)<br />     (setq tmp (car plist))<br />     (setq rtn (cons tmp rtn))<br />     (setq plist (vl-remove-if '(lambda(x) (equal tmp x 0.001)) (cdr plist)))<br />     )<br />   (reverse rtn)<br />   )<br />