list - 如何对结构列表中的数字求和？ ( Racket )

Question

我正在尝试使用递归函数对结构列表中的所有整数求和，但我一生都无法弄清楚。

(struct number (int))
(define ints (list (number 1)
                   (number 2)
                   (number 3)))

(define sum (λ (number)
            (cond
              ((null? number) 0) ; Base Case
              (#t (+ (number-int (car ints)) ; Take the first of the list
                     (sum (cdr ints))))))) ; Rest the list

我花了几个小时尝试不同的变体:

(cdr ints), i.e. (number-int (cdr ints)) for the last line

我相信正是这个导致了问题( (cdr ints) 和 (number-int (cdr ints)) 都以 '(#<number> #<number>) 的形式返回一些内容。但似乎没有任何效果!

是否有一个过程可以以整数列表的形式返回列表的cdr，而不是 '(#<number> #<number>) ？

任何帮助将不胜感激。

Answer 1

试试这个:

(define sum 
  (λ (lst)
    (cond ((null? lst) 0)
          (else (+ (number-int (car lst))
                   (sum (cdr lst)))))))

一些评论:

• 使用 else 而不是 #t 作为 cond 表达式中的最后一个条件
• 您将过程参数 number 的名称与您在外部定义的 ints 列表的名称混合了
• 最好将其重命名为 lst 或其他名称，以明确您正在处理的列表

现在它按预期工作了:

(sum ints)
=> 6