Functional programming 方案-列表的总和

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

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

。

您也可以使用

apply

(define (sum elemList) (apply + elemList))

---

应提供相同的结果

请通过此链接查看更多详细信息。 -

---

对于空列表，会产生一个错误，因为它会尝试获取空列表中的

car

和

cdr

。最好在答案中包含链接的重要部分，因为链接可能会中断/更改。还要为代码的功能添加解释。

(define(list-sum lst)
    (cond
((null ? lst)
    0)
((pair? (car lst))
    (+(list-sum (car lst)) (list-sum (cdr lst))))
(else
    (+ (car lst) (list-sum (cdr lst))))))