functional-programming - 方案 - 列表总和

我正在尝试实现一个计算 list 总和的函数，它的名字是 sum -

(define (sum elemList)
  (if
   (null? elemList)
   (+ (car elemList) (sum (cdr elemList)))
   0
  )
 )

上面的实现给出了错误的结果，例如 -

> (sum (list 1 2 3 4 ))
0

我在这里做错了什么？

最佳答案

我认为您交换了 if 的 then 和 else 部分:

(define (sum elemList)
  (if
    (null? elemList)
    0
    (+ (car elemList) (sum (cdr elemList)))
  )
)

在原始函数中，对于每个非空列表，都会返回 0。

关于functional-programming - 方案 - 列表总和，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/15019498/