Scheme实现列表偶数元素求和功能代码错误排查求助

代码存在的问题 #

• 完全没有偶数判断逻辑：现有代码从未对列表元素的奇偶性做校验，只是单纯递归遍历隔一个取一个的子列表，和「偶数求和」的需求完全不匹配。
• 边界条件逻辑错误：当列表仅剩1个元素时直接返回0，若该元素是偶数会直接漏算。
• 累加逻辑缺失：else分支仅递归调用后续子列表的计算结果，从未把当前符合要求的元素值加入总和，最终结果永远是0。
• 函数设计不合理：sumEven函数重复定义，且直接用display打印结果而非返回数值，无法在其他逻辑中复用该计算结果。

修正后代码 #

; 辅助递归函数：计算列表中偶数的总和
(define helper
  (lambda (lis)
    (cond
      ; 空列表总和为0
      ((null? lis) 0)
      ; 当前元素是偶数，累加当前元素 + 剩余列表的偶数和
      ((even? (car lis)) (+ (car lis) (helper (cdr lis))))
      ; 当前元素是奇数，直接计算剩余列表的偶数和
      (else (helper (cdr lis))))))

; 对外暴露的求和函数
(define (sumEven lis)
  (helper lis))

调用示例 #

; 测试用例：(1 2 3 4 5 6) 偶数和为12
(sumEven '(1 2 3 4 5 6))
; 输出：12

内容的提问来源于stack exchange，提问作者COM