【SICP练习】27 练习1.33



练习1.33

题目第二行描述，只组合起由给定范围得到的项里的那些满足特定条件的项，因此我们需要在这一版本的accumulate中添加一个need-filter?，这个新的谓词可以用来传递下面就要用到的prime?。

(define (filtered-accumulateneed-filter? combiner null-value term a next b)

(if (> a b)

  null-value

  (let ((other-term (filtered-accumulateneed-filter?

                                      combiner

                                      null-value

                                       term

                                       (nexta)

                                       b)))

       (if (need-filter? a)

               other-term

          (combiner (term a) other-term)))))

因此我们就可以通过accumulate来构造一个求a到b之间所有素数的和了。就像上一道题中将accumulate补充称product等一样，这里也是将抽象的filtered-accumulate添加一些固定的元素让它稍微”具体“点。a小题的函数也就出来了。

(define(accumulate-prime-sum a b)

   (filtered-accumulate prime? + 0 (lambda (x)x) a (lambda (x) (+ x 1)) b))

编译这段函数的前提是你已经将prime?加载上来了。

其实解答b小题就是要写出一个能够判断互素的谓词，这里定为a-prime-to-b?。

(define (a-prime-to-b? a b)

   (and (< a b) (= 1 (gcd a b))))

同样的，在这里也应该要将gcd函数加载上来。

类似于前面将need-to-filter?替换成prime?的过程，这里是用的谓词a-prime-to-b?。

(define (product-of –prime-accumulaten)

  (filtered-accumulate (lambda (x) (a-prime-to-b?x n))

                      *

                      1

                      (lambda (x) x)

                      1

                      (lambda (x) (+ x 1))

                      n))

作为初学者，还是多做点实践好了，再来写出迭代版本的filtered-accumulate

我就不再将我对比的过程写下来了，大家可以翻到前面看看。

(define (filtered-accumulateneed-to-filter? combiner null-value term a next b)

   (define (filtered-accumulate-iter a other)

        (cond ((> a b) other)

              ((need-to-filter? a)

               (filtered-accumulate-iter (nexta) (combiner (term a) other)))

              (else

               (filtered-accumulate-iter (nexta) other))))

  (filtered-accumulate a null-value))

这道题我们就这样写完了，接下来我们会开始着重学习lambda了。虽然前面用过不少，但要想灵活运用lambda则比较难了。个人理解，lambda就像是C语言中的指针，灵活运用则威力强大。

版权声明：本文为 NoMasp柯于旺 原创文章，未经许可严禁转载！欢迎访问我的博客：http://blog.csdn.net/nomasp