如何将表中连续的相同元素只保留一个

changyiran

如题，注意是连续的相同元素，如果元素相同但是他们在表中的顺序不是连续的话不做任何处理，例如'(1 1 2 1 3 3 4 3 5)运行函数后变为'(1 2 1 3  4 3 5)，并且表中元素并不局限于数字，有可能是表。各位大神发挥想象力看如何解决吧！

ll_j

1. (defun tt (lst / aa ll)
   
2.   (setq ll (list (car lst)))
   
3.   (while (cdr lst)
   
4.     (if (not (equal (setq aa (car lst))
   
5.                     (car (setq lst (cdr lst)))
   
6.              )
   
7.         )
   
8.       (setq ll (cons (car lst) ll))
   
9.     )
   
10.   )
    
11.   (reverse ll)
    
12. )

(defun tt (lst / aa ll)<br />   (setq ll (list (car lst)))<br />   (while (cdr lst)<br />     (if (not (equal (setq aa (car lst))<br />                     (car (setq lst (cdr lst)))<br />              )<br />         )<br />       (setq ll (cons (car lst) ll))<br />     )<br />   )<br />   (reverse ll)<br /> )

changyiran

ll_j 发表于 2013-11-22 13:16

牛逼啊，还有没代码更为简练些的呢？或者是运行效率更高的代码？

xujinhua

又学到东西了...谢谢

nzl1116

changyiran 发表于 2013-11-22 13:29
牛逼啊，还有没代码更为简练些的呢？或者是运行效率更高的代码？

1. (defun func (lst / y)
   
2.   (if (= (car Lst) 0) (setq y 1) (setq y 0))
   
3.   (vl-remove-if '(lambda (x) (or (= x y) (not (setq y x)))) lst)
   
4. )

(defun func (lst / y)<br />   (if (= (car Lst) 0) (setq y 1) (setq y 0))<br />   (vl-remove-if '(lambda (x) (or (= x y) (not (setq y x)))) lst)<br /> )

changyiran

nzl1116 发表于 2013-11-24 09:12

此代码确实简洁，只不过效率劣于上个代码！

llsheng_73

1. (defun tt(lst / a ll)
   
2.   (while lst(setq a(car lst)lst(vl-remove a lst)ll(cons a ll)))
   
3.    (reverse ll))

(defun tt(lst / a ll)<br />   (while lst(setq a(car lst)lst(vl-remove a lst)ll(cons a ll)))<br />    (reverse ll))

这个去除所有重的,下边去除连续相同的

1. (defun tt(lst / a ll)
   
2.   (while lst(setq a(car lst)lst(cdr lst)ll(if(not(equal(car ll)a))(cons a ll)ll)))
   
3.    (reverse ll))

(defun tt(lst / a ll)<br />   (while lst(setq a(car lst)lst(cdr lst)ll(if(not(equal(car ll)a))(cons a ll)ll)))<br />    (reverse ll))

简单是简单了但表有多长得处理多少次，对于表很大，连续项也比较长的话下边这个效率会高些

1. (defun tt(lst / a ll l2)
   
2.   (setq ll lst)
   
3.   (while ll(setq a(car ll)ll(vl-remove a ll)l2(cons a l2)))
   
4.   (setq l2(reverse l2))
   
5.   (while lst(setq a(car lst)
   
6.     l2(if(member a l2)(cdr l2)l2)
   
7.     lst(member (car l2)lst)
   
8.     ll(if(not(equal(car ll)a))(cons a ll)ll)))
   
9.    (reverse ll))

(defun tt(lst / a ll l2)<br />   (setq ll lst)<br />   (while ll(setq a(car ll)ll(vl-remove a ll)l2(cons a l2)))<br />   (setq l2(reverse l2))<br />   (while lst(setq a(car lst)<br />     l2(if(member a l2)(cdr l2)l2)<br />     lst(member (car l2)lst)<br />     ll(if(not(equal(car ll)a))(cons a ll)ll)))<br />    (reverse ll))

但对代码明显复杂了好多，对于表不大相同项也不多的情况下估计还不如上边一个

Gu_xl

(Defun f(l)(if l (if (/= (car l) (cadr l))(cons (car l) (f (cdr l)) ) (f (cdr l)))))