【SICP练习】41 练习1.46



练习1.46

这道题要求我们写一个过程iterative-improve，其接受两个过程为参数，一个是判断检测是否足够好的good-enough?和另一个改进猜测的improve。其有一个猜测的数字作为参数，然后返回的是一个过程。

我们先来写出这个iterative-improve过程。

(define (iterative-improveclose-enough? improve)

   (lambda (first-guess)

       (define (try guess)

           (let ((next (improve guess)))

              (if (close-enough? guess next)

                 next

                 (try next))))

       (try first-guess)))

如果这道题不会的话就要再重新温习一下第一章了，其思路在于不断的抽象书中的fixed-point函数。

接下来就是重写sqrt和fixed-point了。

(define (sqrt x)

    (define dx 0.00001)

     (define (close-enough? v1 v2)

         (< (abs (- v1 v2)) dx))

     (define (improve guess)

        (average guess (/ x guess)))

     (define (average x y)

         (/ (+ x y) 2))

     ((iterative-improve close-enough? improve)1.0))

(define (fixed-point ffirst-guess)

    (define tolerance 0.00001)

    (define (close-enough? v1 v2)

        (< (abs (- v1 v2)) tolerance))

     (define (improve guess)

        (f guess))

     ((iterative-improve close-enough? improve)first-guess))

其实现在已经深夜了，最后一题就比较简陋了。如果不会的话好好琢磨啦。