方案 - 列表之和

我正在尝试实现一个计算 list 的函数，其名称是sum -

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

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

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

我在这里做错了什么？

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

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

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