[已解决]关于表关联问题

yhly555

(setq a '(a b c))
(setq b '(1 2 3))
如何将两表并联成(("a" . "1")("b" . "2")("c" . "3"))加“”和中间那个“.”
谢谢

自贡黄明儒

yhly555 发表于 2016-10-7 20:56
如果并联成(("a" . "1")("b" . "2")("c" . "3"))
即加“”和中间那个“.”，怎么才能实现。

Command: (mapcar 'list a b)
((A 1) (B 2) (C 3))
Command: (mapcar 'cons a b)
((A . 1) (B . 2) (C . 3))
Command: (mapcar '(lambda(x y) (cons (VL-PRINC-TO-STRING x) y)) a b)
(("A" . 1) ("B" . 2) ("C" . 3))
Command: (mapcar 'cons (mapcar 'vl-princ-to-string a) b)
(("A" . 1) ("B" . 2) ("C" . 3))

USER2128

(mapcar 'cons a (mapcar 'list b))

yhly555

USER2128 发表于 2016-10-5 09:18
(mapcar 'cons a (mapcar 'list b))

感谢热心帮助，谢谢！

lijiao

(mapcar 'list a b)

yhly555

lijiao 发表于 2016-10-5 10:49
(mapcar 'list a b)

谢谢，这样结合起来的结果应该不一样吧，一会我再试试。

yhly555

yhly555 发表于 2016-10-5 09:43
感谢热心帮助，谢谢！

如果并联成(("a" . "1")("b" . "2")("c" . "3"))
即加“”和中间那个“.”，怎么才能实现。

yhly555

lijiao 发表于 2016-10-5 10:49
(mapcar 'list a b)

如果并联成(("a" . "1")("b" . "2")("c" . "3"))
即加“”和中间那个“.”，怎么才能实现。

yhly555

自贡黄明儒 发表于 2016-10-8 08:34
Command: (mapcar 'list a b)
((A 1) (B 2) (C 3))
Command: (mapcar 'cons a b)

谢谢！都是高手。

Sylvanas

自贡黄明儒 发表于 2016-10-8 08:34
Command: (mapcar 'list a b)
((A 1) (B 2) (C 3))
Command: (mapcar 'cons a b)

加一个

(mapcar 'cons (mapcar 'vl-princ-to-string a) (mapcar 'vl-princ-to-string b))
(("A" . "1") ("B" . "2") ("C" . "3"))