[LISP程序]：删除表内的重复元素 为什么不行 请教

hikatu

(SETQ COUNTER 0
pnt-list '( (5 5 5 )(1 2 3) (1 2 3)))
(SETQ NN     (LENGTH PNT-LIST)
      PNT-XY PNT-LIST
)

(repeat  NN
  (SETQ PPP  (VL-REMOVE (NTH COUNTER PNT-XY) PNT-XY))
      (IF (=(NTH COUNTER PNT-XY) (CAR (MEMBER (NTH COUNTER PNT-XY) PPP)))
          (SETQ PNT-XY (VL-REMOVE (NTH COUNTER PNT-XY) PNT-XY))
  )
  (SETQ COUNTER (1+ COUNTER))
)

taner

最初由 hikatu 发布
[B](SETQ COUNTER 0
pnt-list '( (5 5 5 )(1 2 3) (1 2 3)))
(SETQ NN     (LENGTH PNT-LIST)
      PNT-XY PNT-LIST
)

(repeat  NN
  (SETQ PPP  (VL-REMOVE (NTH COUNTER PNT-XY) PNT-XY))
      (IF (=(NTH... [/B]

2. 
   
3.   [FONT=courier new]
   
4. ;;; ==================================================================
   
5. ;;; 删除表中相同的元素
   
6. ;;; ==================================================================
   
7. (defun th-lst-delsame (lst)
   
8.   (if lst
   
9.     (cons (car lst) (th-lst-delsame (vl-remove (car lst) (cdr lst))))
   
10.   )
    
11. )
    
12. ;;; ==================================================================
    
13. (defun tt-lst-delsame (inlst / outlst)
    
14.   (mapcar
    
15.     '(lambda (x)
    
16.        (setq outlst (cons x (vl-remove x outlst)))
    
17.      )
    
18.     inlst
    
19.   )
    
20.   (reverse outlst)
    
21. )
    
22. ;;; ==================================================================
    
23. (defun hao-lst-delsame (l / item i out)
    
24.   (setq out '()
    
25.         i -1
    
26.   )
    
27.   (while (setq item (nth (setq i (1+ i))
    
28.                          l
    
29.                     )
    
30.          )
    
31.     (if (not (member item out))
    
32.       (setq out (cons item out))
    
33.     )
    
34.   )
    
35.   (reverse out)
    
36. )
    
37. ;;; ==================================================================
    
38.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; ==================================================================<br /> ;;; 删除表中相同的元素<br /> ;;; ==================================================================<br /> (defun th-lst-delsame (lst)<br />   (if lst<br />     (cons (car lst) (th-lst-delsame (vl-remove (car lst) (cdr lst))))<br />   )<br /> )<br /> ;;; ==================================================================<br /> (defun tt-lst-delsame (inlst / outlst)<br />   (mapcar<br />     '(lambda (x)<br />        (setq outlst (cons x (vl-remove x outlst)))<br />      )<br />     inlst<br />   )<br />   (reverse outlst)<br /> )<br /> ;;; ==================================================================<br /> (defun hao-lst-delsame (l / item i out)<br />   (setq out '()<br />         i -1<br />   )<br />   (while (setq item (nth (setq i (1+ i))<br />                          l<br />                     )<br />          )<br />     (if (not (member item out))<br />       (setq out (cons item out))<br />     )<br />   )<br />   (reverse out)<br /> )<br /> ;;; ==================================================================<br />   [/FONT]<br />

hikatu

谢谢 啊