[LISP程序]：《删除表内的重复元素 请教》已解决

jxh2003zfr

因无法跟帖，所以新开一贴：

问题已解决，代码如下:

(defun del-b (lst / lst_new lst_en)  
  (while lst
    (setq lst_en (nth 0 lst)
          lst_new (append lst_new (list lst_en))
          lst (vl-remove lst_en lst));会移除与lst_en重复的元素   
    )
  lst_new
)

zml84

[PHP]
;;;条条大道
(defun TT (LST / LST_NEW)
    (foreach N LST
                (if (member N LST_NEW)
                            ()
                            (setq LST_NEW (cons N LST_NEW))
                )
    )
    (reverse LST_NEW)
)

[/PHP]

jxh2003zfr

确实，还是有很多方法能实现目的的，
事实证明，对问题还是需要多多的思考啊。