recursion - Racket/Scheme 中的 zip 函数

Question

给定两个列表，返回一个列表，其元素是大小为 2 的列表，这样对于第 i 个列表，第一个元素是 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))

Answer 1

试试看:

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

左右:

(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))