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

asdfxx · 发表于 2009-7-28 08:37:00

提示: 作者被禁止或删除内容自动屏蔽

caoyin · 发表于 2009-7-28 12:43:00

(defun test (lst / a lst2)
(while (setq a (car lst))
    (setq lst (cdr lst))
    (while (= (car lst) a)
      (setq lst (cdr lst))
    )
    (setq lst2 (cons a lst2))
)
(reverse lst2)
)

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

狂刀无痕 · 发表于 2009-7-29 00:00:00

(defun test (lst / ll)
(setq ll(list(car lst)))
(mapcar'(lambda(x)(if(not(equal x (car ll)))(setq ll(cons x ll)))) lst)
(reverse ll)
)

yoyoho · 发表于 2009-7-29 11:20:00

caoyin发表于2009-7-28 12:43:00(defun test (lst / a lst2) (while (setq a (car lst)) (setq lst (cdr lst)) (while (= (car lst) a) (setq lst

(test '(a b c c c d c o))
测试结果 (A B C D C O)

yoyoho · 发表于 2009-7-29 11:27:00

以下是引用狂刀无痕在2009-7-29的发言：
(defun test (lst / ll)
  (setq ll(list(car lst)))
  (mapcar'(lambda(x)(if(not(equal x (car ll)))(setq ll(cons x ll)))) lst)
  (reverse ll)
  )
(defun test (lst / ll)   (setq ll(list(car lst)))   (mapcar'(lambda(x)(if(not(equal x (car ll)))(setq ll(cons x ll)))) lst)   (reverse ll)   )

(test '(a b c c c d c o))
测试结果 (A B C D C O)

ocoipw · 发表于 2015-2-2 03:09:47

caoyin 发表于 2009-7-27 17:24
(defun test (lst / a lst2)  (while (setq a (car lst) lst2 (cons a lst2) lst (vl-remove a l ...

程序很有用，构思很巧妙。谢谢！！

账号		自动登录	找回密码
密码			注册

asdfxx asdfxx 当前离线积分 2242 明经币个注册时间 2009-7-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-7-28 08:37:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

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

浏览过的版块