方案 Zip 功能

Question

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

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

此外，它获取第 n 个位置的每个元素并将它们配对在一起。

我对计划相当陌生，所以任何帮助将不胜感激！谢谢！

Answer 1

来自我的标准前奏：(define (zip . xss) (apply map list xss))