Scheme函数总和偶数

作者: 文艺青年3
发布时间: 2025-06-07 06:48:24 (1月前)
转自：

2 条回复

0#
回复此人
只怕再见是故人 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你什么时候忘了处理这个案子 <code> n </code> 很奇怪： </p> <pre> <code> (define (even-sum n) (cond ((<= n 0) 0) ((= (modulo n 2) 0) (+ n (even-sum (- n 2)))) (else (even-sum (- n 1))))) </code> </pre> <P> 顺便说一句：你可以用一个简单的公式来实现相同的结果，假设这样 <code> n >= 0 </code> 。没有必要迭代！ </p> <pre> <code> (define (even-sum n) (let ((m (if (even? n) n (- n 1)))) (* (+ m 2) (/ m 4)))) </code> </pre> <P> 无论哪种方式，它都按预期工作： </p> <pre> <code> (even-sum 1001) => 250500 </code> </pre> </DIV>

编辑

登录后才能参与评论