方案 - 列表總和

Question

我正在嘗試實現一個函數，它 calc sum of list ，它的名字是sum -

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

上面的實現給出了錯誤的結果，例如 -

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

我在這里做錯了什么？

Answer 1

我認為你換了，然后和的其他部分if ：

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

在原始函數中，對於每個非空列表，返回0 。

Answer 2

您也可以使用apply

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

應該給你相同的結果

Answer 3

請參考此鏈接了解更多詳情。 - http://groups.umd.umich.edu/cis/course.des/cis400/scheme/listsum.htm

(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))))))