与foldr相似列表操作球拍

Question

#lang racket

我需要从2所列出

创建一个列表

list1 => '(1 2 3) 
list2 => '(a b c) 

的

(define (create-list l1 l2) 
... 
) 

期望的结果是'((1 a) (2 b) (3 c))

必须使用foldr并且不能使用递归。

我正在考虑运行一个计数器和使用list-ref， 有没有更好的方法？

Answer 1

球拍，在foldr高阶过程可能需要多个列表作为参数，你只需要制作一个lambda是处理它们的要求：

(define (create-list l1 l2) 
    (foldr (lambda (e1 e2 acc) 
      (cons (list e1 e2) acc)) 
     '() l1 l2)) 

例如：

(create-list '(1 2 3) '(a b c)) 
=> '((1 a) (2 b) (3 c))