方案Zip功能

Question

我需要在Scheme中编写一个充当拉链的函数 - 这意味着它需要两个列表，并在两个列表中创建一个“拉链”，以便

(zip '(a b c) '(1 2 3)) => ((a 1) (b 2) (c 3))

此外，它将每个元素放在第n个位置并将它们组合在一起。

我对Scheme很新，所以任何帮助都会非常感激！ 谢谢！

Answer 1

来自我的Standard Prelude：(define (zip . xss) (apply map list xss))