スキーム内のリストの他のすべての奇数要素を追加するのに問題がある

Question

私はリストにすべての奇数要素を追加しようとしています。

何が間違っているかわかりません。それはすべてのオッズのリストのために働くが、単一の偶数があってもエラーを引き起こす - それは2番目の要素として数を期待していたが、代わりにリストが渡された。

私のコードで何が問題になっていますか？

(define list-sum-odd 
    (lambda (list) 
    (cond 
     ((null? list) 
     0) 
     ((odd? (car list)) 
     (+ (car list) (list-sum-odd (cdr list)))) 
     (list-sum-odd 
     (cdr list))))) 

Answer 1

(else (list-sum-odd (cdr list)))と(list-sum-odd (cdr list))を交換してください。つまり、プロシージャlist-sum-oddが真であるかどうか（#fではないため）、次に(cdr list)を返します。最後の式がelse式であるとSchemeに指示する必要があります。