Racket/Scheme 中的 zip 功能

给定两个列表，返回一个列表，其元素是大小为二的列表，这样对于i-th 列表，第一个元素是i- 第一个原始列表的第一个元素，第二个元素是i- 第二个原始列表的第一个元素。如果一个列表小于另一个列表，则生成的列表具有最小的大小；因此，如果其中一个列表为空，则返回一个空列表。例如：

> (zip '(1 2) '(3 4))
'((1 3) (2 4))

> (zip '(1 2 3) '())
'()
> (zip '() '(4 5 6))
'()
> (zip '(8 9) '(3 2 1 4))
'((8 3) (9 2))
> (zip '(8 9 1 2) '(3 4))
'((8 3) (9 4))

Try so:

(map cons '(1 2 3) '(a b c))

or so:

(map list '(1 2 3) '(a b c))

(define zip (lambda (l1 l2) (map list l1 l2)))

->(zip '(1 2 3) '(x y z))
'((1 x) (2 y) (3 z))