elisp - 在elisp中压缩两个不同长度的列表

Question

我有两个 list :

(setq x (list "a" "b" "c"))
(setq y (list "1" "2" "3" "4"))

如何创建 cons 单元列表 (("a" . "1") ("b" . "2") ("c" . "3") ("a" . "4"))回收了较短的列表？

Answer 1

这是我的看法:

(require 'cl-lib)
(cl-mapcar #'list (setcdr (last x) x) y)

我会添加一个检查它们中哪个更大，但这会破坏简洁:)。