如何让表中多于一个的元素只保留一个

changyiran

我有若干表数据，例如'（1 2 2 3 3 3 4 5）我想让它经过处理后变成'(1 2 3 4 5)，即将元素个数多于一个的只保留其中一个就行了，我苦思冥想不知算法该如何写，希望各位高手帮个忙，谢谢！！！

chpmould

you can use the sort ....

Gu_xl

(defun gxl-delsame (l)
  (if L
    (cons (car L) (gxl-delsame (vl-remove (car L) (cdr L))))
  )
)

chpmould

Very good recursive method.

changyiran

Gu_xl 发表于 2012-7-7 21:23
(defun gxl-delsame (l)
  (if L
    (cons (car L) (gxl-delsame (vl-remove (car L) (cdr L))))

额滴神啊，太不可思议了，佩服地五体投地！！……

changyiran

Gu_xl 发表于 2012-7-7 21:23
(defun gxl-delsame (l)
  (if L
    (cons (car L) (gxl-delsame (vl-remove (car L) (cdr L))))

版主我知道这是递归，但怎么理解不透呢，比如参数是'(1 2)，我总感觉，程序只执行二次，当执行到第二次的时候，这时(car L)为'(2),gxl-delsame 的参数(vl-remove (car L) (cdr L))已经变为了nil，也就是程序不再执行，那样的话，根据最后一个表达式的值就是函数的返回值，函数应该为(cons(car L)nil)即'(2),可程序返回的是'(1 2)，虽然这正是我要的结果，可总是理解不透，望版主指教。

Gu_xl

changyiran 发表于 2012-7-7 22:01
版主我知道这是递归，但怎么理解不透呢，比如参数是'(1 2)，我总感觉，程序只执行二次，当执行到第二次的 ...

执行结果
(cons 1 (cons 2 nil))

革天明

changyiran 发表于 2012-7-7 22:01
版主我知道这是递归，但怎么理解不透呢，比如参数是'(1 2)，我总感觉，程序只执行二次，当执行到第二次的 ...

if L这句，当为nil时if不成立，就不执行了

changyiran

Gu_xl 发表于 2012-7-7 22:29  执行结果  (cons 1 (cons 2 nil))

明白了，递归几次cons表达式就执行几次，最后一次递归的结果并不是整个函数的最终结果，它只是cons的最后一个表达式，谢谢版主提醒！

chlh_jd

1. (vl-sort '(1 2 2 3 3 3 4 5) '<) ;>> (1 2 3 4 5)

复制代码