http://www.mjtd.com/Functions/ 用了foreach 和mapcar 好像只传个副本给变量中。
主程序想实现下列功能
表user_list 结构类型'((id1 name1 info1 num1) (id2 name2 info2 num2)……)
用(foreach one_list user_list (if (= (car(one_list) getid )
(progn
当getid=id1,改变user_list中的一个表中num数+1 如num1=2,则最后便 3
例如'((id1 name1 info1 3) (id2 name2 info2 num2)……)
)
)
用嵌套subst 暂时可以,但数据格式不严格的时候,容易出现错误 yshf 发表于 2011-3-5 22:46 static/image/common/back.gif
(setq a '(1 2 2))
(setq b (reverse (cons 5 (cdr (reverse a)))))
reverse 的妙用不错
页:
1
[2]