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

lisp爱好者 · 发表于 2013-1-16 13:12

如题，有lsta 和 lstb 两个表，如何直接把表a的值赋值给表b，一个一个写太麻烦了，请各位大侠们帮帮忙，谢谢谢谢！
(setq lsta '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" ....))
(setq lstb '("m01" "m02" "m03" "m04" "m05" "m06" "m07" "m08" "m09" "m010" ....))
(setq "m01" "a")
(setq "m02" "b")
(setq "m03" "c")
(setq "m04" "d")
(setq ......)

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

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

yjr111 · 发表于 2013-1-16 13:16

(mapcar '(lambda(x y)(set x y))lsta lstb )试试？

lisp爱好者 · 发表于 2013-1-16 13:33

不知道哪有问题，没有得到想要的

snddd2000 · 发表于 2013-1-16 13:46

(setq lsta '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k"))
(setq lstb '("m01" "m02" "m03" "m04" "m05" "m06" "m07" "m08" "m09" "m010" ))

(mapcar  '(lambda (x y)
      (set (read y) x)
      )
      lsta lstb
)

lisp爱好者 · 发表于 2013-1-16 13:52

试了下，字符串之间是不能赋值的，只能这样

highflybir · 发表于 2013-1-16 14:02

本帖最后由 highflybir 于 2013-1-16 14:03 编辑

(mapcar 'set (mapcar 'read lstb) lsta)字符串是常量，当然不能赋值。
只有变量才能赋值。

lgdesign · 发表于 2013-1-16 14:11

本帖最后由 lgdesign 于 2013-1-16 14:12 编辑

lisp爱好者发表于 2013-1-16 13:33
不知道哪有问题，没有得到想要的

這二行改這樣看看是不是您要的結果
(setq lstb '(m01 m02 m03 m04 m05 m06 m07 m08 m09 m010))
(mapcar '(lambda(x y)(set x y))lstb lsta )

ll_j · 发表于 2013-1-16 14:26

4楼算是正解，但4楼两个表元素数量不相等，所以不会出结果。

lisp爱好者 · 发表于 2013-1-16 15:11

一直没有搞清楚append mapcar lambda他们之间的用法，

xiabin68 · 发表于 2013-1-16 18:33

又学一招了，，，，，

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

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

相关帖子

点评

本帖子中包含更多资源

点评

本帖子中包含更多资源

点评

点评

点评