看起来很简单...

q3_2006 · 发表于 2014-5-15 21:06:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

表长不变....重复项用指定符号替换

'(a a a b b b a a a c c b b)-->>'(a "" "" b "" "" a "" "" c "" b "")

清理重复一直用G版的递归处理,如果不清理只是用其他符号替换掉该怎么做呢...寻求简单的方法,希望大家参与讨论,谢谢!

q3_2006 · 发表于 2014-5-15 21:43:20

本帖最后由 q3_2006 于 2014-5-15 21:45 编辑

我的方法....
(defun tt (lst / l)
  (setq l (list (car lst)))
  (while (cdr lst)
(if (equal (car lst) (car (setq lst (cdr lst))))
   (setq l (cons "" l))
   (setq l (cons (car lst) l))
)
  )
  (reverse l)
)

牢固 · 发表于 2014-5-15 22:16:09

（Defun f （L / a)（Mapcar '（Lambda（X）（If（Not A）（setq a X）（if（= a X）""（SETq a nil x X）））） L））

q3_2006 · 发表于 2014-5-16 05:44:31

牢固发表于 2014-5-15 22:16
（Defun f （L / a)（Mapcar '（Lambda（X）（If（Not A）（setq a X）（if（= a X）""（SETq a nil x X） ...

谢谢G版....学习了..手机打的....整理下..(defun k (l / a) (mapcar '(lambda(x) (if (not a) (setq a x) (if (= a x) "" (setq a x)))) l))....

q3_2006 · 发表于 2014-5-17 19:50:19

q3_2006 发表于 2014-5-16 05:44
谢谢G版....学习了..手机打的....整理下..(defun k (l / a) (mapcar '(lambda(x) (if (not a) (setq a x) ...

看出来了.....{:soso_e120:}

wowan1314 · 发表于 2014-5-19 23:52:53

本帖最后由 wowan1314 于 2014-5-19 23:54 编辑

改为if a ，，后面的相应颠倒会不会更好些？
少个判断

q3_2006 · 发表于 2014-5-20 05:15:31

wowan1314 发表于 2014-5-19 23:52
改为if a ，，后面的相应颠倒会不会更好些？
少个判断

确实....谢谢高手指点.....

q3_2006 · 发表于 2014-5-20 08:11:41

wowan1314 发表于 2014-5-19 23:52
改为if a ，，后面的相应颠倒会不会更好些？
少个判断

拜托大师也帮我看这个怎么写...http://www.xdcad.net/forum/thread-674062-1-1.html,谢谢了!

q3_2006 · 发表于 2014-5-20 08:13:18

牢固发表于 2014-5-15 22:16
（Defun f （L / a)（Mapcar '（Lambda（X）（If（Not A）（setq a X）（if（= a X）""（SETq a nil x X） ...

G版...也抽空给看看呗...没解出来...{:soso_e110:}http://www.xdcad.net/forum/thread-674062-1-1.html

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

[研讨] 看起来很简单...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评