June 22th Friday (六月　二十二日　金曜日)

最新推荐文章于 2026-01-08 21:46:27 发布

原创最新推荐文章于 2026-01-08 21:46:27 发布 · 664 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#scheme #emacs #lisp #list #null

本文介绍了一个 Emacs Lisp 的自定义函数 `zip-list`，该函数用于将两个列表组合成一个列表，其中每个元素都是来自原始两个列表相应位置元素的配对。作者在工作间隙编写了这段代码，并分享了其在 Emacs Lisp 编程中的乐趣。

(defun zip-list (al bl)
(if (not (equal (length al) (length bl))) nil
    (progn
      (let ((ls nil))
(while (not (null al))
   (setq ls (cons (cons (car al) (car bl)) ls))
   (setq al (cdr al))
   (setq bl (cdr bl)))
(reverse ls)))))

(zip-list (list 1 2 3) (list 4 5 6))

The above program was wrote by me at the interval of my work. Now sometime to write
a segment of scheme or Emacs lisp code became an interesting of mine.