添加向量元素（方案 R5RS）- 请参阅修订后的代码部分

Question

我想在方案中添加向量中的所有项目。

我相信我的问题在于我使用 lambda 的方式（非常不确定这个表达式的正确用法），将向量的长度分配给变量 i 并添加我尝试从向量中的每个元素获取的值。根据错误消息不确定如何修复错误。

我得到的错误只是：

#<程序>

代码：

(define (sum X)
   (define length (vector-length X)) ;potential problem area
       (lambda (length)
       (lambda (total)
          (do (
              (i length (- i 1))
              (a (vector-ref X i)(+ a total)) ; potential problem area
              )
           ((zero? i) total)
            )
         )
         )
  )

修改后的代码（感谢 user479988） - 我删除了 lambda，意识到我不需要它们。并将变量 i 定义为初始 0。

错误是现在输出显示 0。

The code:

(define (sum X)
  (define length (vector-length X)) ;potential problem area
  (define total 0)
  (define i 0)
  (do (
       (i length (- i 1))
       (a (vector-ref X i)(+ a total)) ; potential problem area
       ((zero? i) total)
       )
    )
  )

您能否建议一下 一）错误 ii）算法的逻辑

谢谢！

Answer 1

我无法真正告诉你的程序的结构，因为括号不匹配并且缩进很难阅读，但我认为你没有给 lambda 任何输入，所以你不是返回总和，而是返回用lambdas 因为你没有评估它们。