怎么删掉表中连续相同的元素，谢谢

caoyin

(defun test (lst / a lst2)
  (while (setq a (car lst) lst2 (cons a lst2) lst (vl-remove a lst)))
  (reverse lst2)
)

qjchen

:)
以下两段是我写的代码，写的不怎么样，你试试看行不，只能1维消重，多维的大概得递归吧

3. (defun test(lst / lst1 i res)
4. (setq lst1 (cons (list (car lst)) lst) i -1)
5. (foreach x lst
6.   (setq i (1+ i))
7.   (if (/= x (nth i lst1)) (setq res (append res (list x))))
8. ) )
9. res
10. )

(defun test(lst / lst1 i res) (setq lst1 (cons (list (car lst)) lst) i -1) (foreach x lst   (setq i (1+ i))   (if (/= x (nth i lst1)) (setq res (append res (list x)))) ) ) res )

或

3. (defun test1(lst / lst1 i res)
4. (setq lst1 (cdr lst) i -1)
5. (foreach y lst1
6.   (setq i (1+ i))
7.   (if (/= y (nth i lst)) (setq res (append res (list y))))
8. )
9. (cons (car lst) res)
10. )

(defun test1(lst / lst1 i res) (setq lst1 (cdr lst) i -1) (foreach y lst1   (setq i (1+ i))   (if (/= y (nth i lst)) (setq res (append res (list y)))) ) (cons (car lst) res) )

在咨询了Evgeniy大师之后，他的回答是
1. (ACET-LIST-REMOVE-ADJACENT-DUPS lst )

2. 多维递归的（要看楼主是否需要递归了）

3. (defun rem-adj2 (l)
4.   (if (cdr l)
5.     (if (eq (car l) (cadr l))
6.       (rem-adj2 (cdr l))
7.       (cons (car l) (rem-adj2 (cdr l)))
8.     )           
9.     l
10.   )           
11. )

(defun rem-adj2 (l)   (if (cdr l)     (if (eq (car l) (cadr l))       (rem-adj2 (cdr l))       (cons (car l) (rem-adj2 (cdr l)))     )                l   )            )

不死猫

我回复了

(defun tt(o / i n j)(while (< (1+ (setq i (if (not i) -1 (1+ i)))) (length o))(while (= j (setq j (nth (setq i (1+ i)) o))))(setq n (append n (list j))))(cons (car o) n))

命令: (tt '(a b c c c d c o))
(A B C D O)

elitefish

qjchen发表于2009-7-27 17:48:00:)一写的很烂的代码，你试试看行不，只能1维消重，多维的大概得递归吧(defun test(lst / lst1 i res) (setq lst1 (cons (list (car lst)) lst) i -1) (foreach x lst  (setq i

elitefish

2. ;清除列表中连续重复元素
3. ;'( 1 2 3 1 1 nil nil nil 4 4 5 6 nil nil) -> '( 1 2 3 1 nil 4 5 6 nil)
4. (defun EF-List-Fix (lst1 / e lst2 )
5.   (setq lst2 (list (setq e (car lst1))))
6.   (while (setq lst1 (cdr lst1))
7.     (if (not (equal e (car lst1)))
8.       (setq lst2 (cons (car lst1) lst2))
9.       )
10.     (setq e (car lst1))
11.     )
12.   (reverse lst2)
13.   )

;清除列表中连续重复元素 ;'( 1 2 3 1 1 nil nil nil 4 4 5 6 nil nil) -> '( 1 2 3 1 nil 4 5 6 nil) (defun EF-List-Fix (lst1 / e lst2 )   (setq lst2 (list (setq e (car lst1))))   (while (setq lst1 (cdr lst1))     (if (not (equal e (car lst1)))       (setq lst2 (cons (car lst1) lst2))       )     (setq e (car lst1))     )   (reverse lst2)   )

我现在用的

qjchen

:)
问了Evgeniy，现在修正原来的代码了：）

3. (defun rem-adj2 (l)
4.   (if (cdr l)
5.     (if (eq (car l) (cadr l))
6.       (rem-adj2 (cdr l))
7.       (cons (car l) (rem-adj2 (cdr l)))
8.     )           
9.     l
10.   )           
11. )

(defun rem-adj2 (l)   (if (cdr l)     (if (eq (car l) (cadr l))       (rem-adj2 (cdr l))       (cons (car l) (rem-adj2 (cdr l)))     )                l   )            )

yoyoho

测试结果如下:

(rem-adj2 '(nil nil 1 2 3 3 3 3 32 1 1 1 nil nil))
(nil 1 2 3 32 1 nil)

yoyoho

(defun test (lst / a lst2)                                          
  (while (setq a (car lst) lst2 (cons a lst2) lst (vl-remove a lst)))
  (reverse lst2)                                                    
)  

测试结果如下: 

(test '(a b c c c d c o))

(a b c d o)