functional-programming - スキーム - リストの合計

Question

list の合計を計算する関数を実装しようとしています。その名前はsum-

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

上記の実装では、間違った結果が得られます。たとえば、-

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

ここで何が間違っていましたか？

Answer 1

thenとelseの部分を交換したと思いますif：

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

元の関数では、空でないリストごとに0が返されます。

Answer 2

詳しくはこちらのリンクからどうぞ。- 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))))))