求注释，谢谢(list r (cons (caadr rl) (1+ (cdadr rl))))

freeok2013 · 发表于 2013-11-29 11:02:48

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

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

×

求注释，谢谢

(setq r (cdr(assoc 40 ent)));;;;;;;;;从关联表中搜索一个元素，如果找到则返回该关联表条目;求取圆的分类参数半径
(if (setq rl (assoc r cl));;;;;;;;;;;cl表中是否含有某一半径，返回此值给 r1
(setq cl (subst (list r (cons (caadr rl) (1+ (cdadr rl)))) rl cl))---这句谁帮下，太长了，不会解了！

st788796 · 发表于 2013-11-29 11:16:20

(setq r (cdr (assoc 40 ent)));_从关联表中搜索一个元素，如果找到则返回该关联表条目;求取圆的分类参数半径
(if (setq rl (assoc r cl));_cl表中是否含有某一半径，返回此值给 r1
(setq cl (subst (cons r (1+ (cdr rl)));_原有数 +1 形成新元素
rl;_旧元素
cl;表
)
)
(setq cl (cons (cons r 1) cl));_没有这个半径加入并计数((r1 . num1) (r2 . num2) ...)
)

newer · 发表于 2013-11-29 11:31:14

(setq cl (subst (list r (cons (caadr rl) (1+ (cdadr rl)))) rl cl))---这句谁帮下，太长了，不会解了！

你记住SUBST的用法就行了

(subst new old lst)

用NEW替换OLD

不清晰你可以这样写：

(setq new (list r (cons (caadr rl) (1+ (cdadr rl)))))
(setq cl (subst new rl cl))

freeok2013 · 发表于 2013-11-29 15:56:11

谢谢你了，明白了！

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

[求助] 求注释，谢谢(list r (cons (caadr rl) (1+ (cdadr rl))))

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