求助--如何对两个列表赋值

zyhandw · 发表于 2013-1-17 13:58:29

很好，学习了

fl202 · 发表于 2014-5-27 17:19:48

本帖最后由 fl202 于 2014-5-27 17:56 编辑

  (setq b12 (list "8000" "5" "600" "22.5" "20" "150" "2500" "2000" "200" "135" "150" "300" "45" "1486.61" "364.47" "226.4" "590.87" "" ""))
  (setq b11 '(edd11 edd12 edd13 edd14 edd15 edd16 edd21 edd22 edd23 edd24 edd25 edd26 edd27 edd41 edd42 edd43 edd44 edd45 edd46))
  (mapcar '(lambda (x y) (set x y))  b11  b12)
  (print edd11)
  (setq b12 (list "4000" "3" "200" "122.5" "20" "150" "2500" "2000" "200" "135" "150" "300" "45" "1486.61" "364.47" "226.4" "590.87" "" ""))
  (mapcar '(lambda (x y) (set x y))  b11  b12)
(print edd11)
(setq b12 (list "6000" "3" "200" "122.5" "20" "150" "2500" "2000" "200" "135" "150" "300" "45" "1486.61" "364.47" "226.4" "590.87" "" ""))
(mapcar '(lambda (x y) (setq x y))  b11  b12)
(print edd11)
(print "over")

set /=  setq

vladimirputin · 发表于 2016-10-23 14:05:51

很好的资料，谢谢楼主分享啊。

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