(define(zip a b((地图列表(列表a b((
输入-(zip'(1 2 3 4 5('(a b c d e(('((1 a((2 b((3 c((4 d((5 e((
最终输出应将此列表附加在一起并打乱
无法获得有效的结果
您应该调用带有列表的apply：
(define (zip a b)
(apply map list (list a b)))
(zip '(1 2 3 4 5) '(a b c d e))
;; '((1 a) (2 b) (3 c) (4 d) (5 e))