如何使用fold right映射Scheme中的兩個列表？

Question

我找只用foldr相似

(map-Using-FoldR '(1 2 3 4) '(w x y z)) 

應該返回

'((1 w) (2 x) (3 y) (4 z)) 

或者換句話說，一個映射兩種不同的列表中的項目的方式 - 「地圖」用foldr 是可能的命令implemetation？ 謝謝！

Answer 1

基本上，你要實現的foldr方面zip過程：

(define (zip lst1 lst2) 
    (foldr (lambda (e1 e2 acc) (cons (list e1 e2) acc)) 
     '() 
     lst1 
     lst2)) 

例如：

(zip '(1 2 3 4) '(w x y z)) 
=> '((1 w) (2 x) (3 y) (4 z))