博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
【SICP练习】41 练习1.46
阅读量:5978 次
发布时间:2019-06-20

本文共 892 字,大约阅读时间需要 2 分钟。



练习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))

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

转载地址:http://urpox.baihongyu.com/

你可能感兴趣的文章
跑带宽度多少合适_跑步机选购跑带要多宽,你的身体早就告诉你了
查看>>
Javascript异步数据的同步处理方法
查看>>
iis6 zencart1.39 伪静态规则
查看>>
SQL Server代理(3/12):代理警报和操作员
查看>>
Linux备份ifcfg-eth0文件导致的网络故障问题
查看>>
2018年尾总结——稳中成长
查看>>
通过jsp请求Servlet来操作HBASE
查看>>
Shell编程基础
查看>>
Shell之Sed常用用法
查看>>
Centos下基于Hadoop安装Spark(分布式)
查看>>
mysql开启binlog
查看>>
设置Eclipse编码方式
查看>>
分布式系统唯一ID生成方案汇总【转】
查看>>
并查集hdu1232
查看>>
Mysql 监视工具
查看>>
Linux Namespace系列(09):利用Namespace创建一个简单可用的容器
查看>>
博客搬家了
查看>>
Python中使用ElementTree解析xml
查看>>
linux的日志服务器关于屏蔽一些关键字的方法
查看>>
mysql多实例实例化数据库
查看>>