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

Question

我有两个清单:

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

如何创建一个(("a" . "1") ("b" . "2") ("c" . "3") ("a" . "4"))使用较短列表回收的利弊单元列表？

Answer 1

这是我的看法:

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

我会添加一个检查,看看哪个更大,但这会破坏简洁:).