схема - сумма списка

Question

Я пытаюсь реализовать функцию, которая известково сумма списка, его имя 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 возвращается.