Scheme - somme de la liste

Question

Je suis en train de mettre en œuvre une fonction somme calc de la liste, son nom est sum -

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

La mise en œuvre ci-dessus donne un mauvais résultat, par exemple -

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

Qu'est-ce que j'ai fait de mal ici?

Answer 1

Je pense que vous troqué le alors et le autre partie du if:

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

Dans la fonction d'origine, pour chaque liste non vide, 0 est retourné.