使用foldl 和foldr 反转Scheme 中的列表

如何定义一个函数来反转Scheme中的列表，方法是使用foldr and foldl?

我们想要的是一个简洁的解决方案，使用foldl调用并使用不同的解决方案foldr调用，定义为：

(define (foldl operation lst initial)
    (if (null? lst) initial
        (foldl operation 
               (cdr lst) 
               (operation (car lst) initial))))

and

(define (foldr operation lst initial)
    (if (null? lst) initial
        (operation 
            (car lst) 
            (foldr operation (cdr lst) initial))))

聪明的人会观察到foldl实现是尾递归的，因为返回值是在调用每个递归步骤时计算的 - 在最后一步，整个答案已经计算出来并简单地返回到链上。

The foldr实现不是尾递归的，因为它必须使用递归链上传递回的值来构建返回值。

因此，我们感兴趣的两个Scheme实现应该采用以下形式，

(define (rev1 lst)
    (foldl ___________________________

**Solution:**
(define (rev1 lst)
    (foldl cons lst '()))

and

(define (rev2 lst)
    (foldr ___________________________

**Solution 1:**
(define (rev2 lst)
    (foldr 
       (lambda (element accumulator) 
               (foldr cons accumulator (cons element '())))
       lst '())) 

**Solution 2:**
(define (rev2 lst)
    (foldr 
       (lambda (element accumulator) 
               (append accumulator (cons element '())))
       lst '())) 

最终目标是能够调用以下内容，

(rev1 '(1 2 3)) -> (3 2 1)
(rev2 '(1 2 3)) -> (3 2 1)

The foldl解决方案应该相对简单（基于我们的直觉），但是foldr解决方案可能需要更多的思考。

之前与此问题类似（但记录较少）的问题最终没有得到解答和/或关闭。

这看起来像是家庭作业，所以我会给你一些提示来帮助你开始。这foldlcase 很简单，你只需要找到要传递的正确函数，并记住：foldl可以可视化为向后处理列表（最后一个元素在前，第一个元素在最后），因此您所要做的就是将列表中的当前元素与累积值粘在一起：

(define (rev1 lst)
  (foldl <???> lst '()))

The foldr情况只是稍微困难一点，只要记住这一点foldr按照输入列表中出现的顺序处理列表中的元素。同样，您必须找到正确的调用过程：

(define (rev2 lst)
  (foldr (lambda (e a)
           <???>)
         lst
         '()))

你需要以某种方式放置e（当前元素）位于end of a，累计值。提示：你会发现append and list在这里很有用。