计划中的倍数之和

Question

所以我对Scheme和函数式编程很新。 我正在尝试编写一个程序，找到所有3或5的倍数低于1000的总和。这是我到目前为止的尝试：

(define (sum-of-multiples n)
; Start = 0, End = n, Sum = 0.
(get-sum 0 n 0)
)

; A recursive loop that starts at 0 and ends with given n (1000).
(define (get-sum start end sum)
   (cond
   ; Stopping case.
   ((= start end) sum)
   ; If start counter is divisible by 3, add to sum.
   ((= (remainder start 3) 0) (get-sum (+ start 1) end (+ start sum)))
   ; If start counter is divisible by 5, add to sum.
   ((= (remainder start 5) 0) (get-sum (+ start 1) end (+ start sum)))
   ; Otherwise just increment start counter.
   (get-sum (+ start 1) end sum))
)

(display (sum-of-multiples 1000))
(display " ")

我不确定我的代码目前的错误是由于Scheme语法问题还是我尝试递归来解决问题。 因为我对这两件事都不擅长。

当我运行此代码时，我只显示“0”。

找到并修复错误的任何帮助都会很棒。

谢谢！

Answer 1

你在“所有其他案件”案件中遗漏了else ; 它应该是

(else (get-sum (+ start 1) end sum))

试图解释你从哪里得到0：

cond子句具有形式(condition expression) ，因此您的条件是get-sum 。
就像else情况else ，这种情况永远不会错。

在条件之后还有一个隐含的begin ，所以你所拥有的相当于

(else (begin (+ start 1) end sum))

结果就是begin块中最后一个表达式的值，即sum 。

由于当您第一次达到该条件时sum为0，因此结果为0。

Answer 2

cond格式是：

(cond (<condition> <expr>)
       .
       .
      (else <expr>))

在你的代码中没有else 。 get-sum函数（有些重新格式化）应该是：

(define (get-sum start end sum)
   (cond
      ((= start end) sum)
      ((= (remainder start 3) 0)
       (get-sum (+ start 1) end (+ start sum)))
      ((= (remainder start 5) 0)
       (get-sum (+ start 1) end (+ start sum)))
      (else
       (get-sum (+ start 1) end sum))))

使用此修复程序，您的代码显示233168 。 我没有检查你的算法，但这个结果看起来好于0 :)