[求助] 如何用foreach 修改list表中的某个数据

Andyhon

函数列表中有您可搭的便车
http://www.mjtd.com/Functions/

xiaoxuefengwu

用了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)……)

)
)

xiaoxuefengwu

用嵌套subst 暂时可以，但数据格式不严格的时候，容易出现错误

434939575

yshf 发表于 2011-3-5 22:46
(setq a '(1 2 2))
(setq b (reverse (cons 5 (cdr (reverse a)))))

reverse 的妙用不错