文档章节

【SICP练习】25 练习1.31

NoMasp
 NoMasp
发布于 2015/09/08 21:47
字数 582
阅读 3
收藏 0


练习1.31

题目中已经说的很清楚了,product用来返回在给定范围中各点的某个函数值的乘积。我们惊奇的发现这和前面的sum有着很大的相似,无非是将加法换成了乘法:

(define (product term a next b)

    (if(> a b)

       1

      (* (term a)

        (product term (next a) next b))))

既然在上一道习题中已经得出了sum的迭代版本,在这里同样也可以将它写成迭代的。

(define (product term a next b)

   (define (product-iter a other)

       (if (> a b)

          other

          (product-iter (next a)

                        (* (term a) other))))

   (product-iter a 1))

不怕被笑话,我还去查了factorial的中文意思。有了product来写factorial不要太容易呀,只不过要借助以下很久之前用到过的lambda。不过完全也可以用额外定义的函数实现同样的功能,只不过在函数内用lambda会使代码更加简洁。

(define (factorial n)

   (product (lambda (x) x) 1 (lambda (x) (+ x 1)) n))

下面我们来测试一下这个函数。

晕倒。。。博主轻飘飘的来了一个(factorial 50)结果返回了半个屏幕宽的数字。

话说我写到这里的时候才把a题做完,b题都没有看,没想到居然不知不觉中把b也碰巧做了。不过再看看原来a还没有写完,还要求pi的近似值。

那么这部分的策略是将分子和分母分开来看。先来看分子,我们可以准备一个函数,有一个参数n,如果n1则返回2n是奇数则加上1n是偶数则加2。分母也可以用这种函数来产生。然后我们将左式中的4乘到右式,并且通过前面学的exact->inexact将分数转换成浮点数。最后我们就求出了pi。下面是完整的代码。

(define (get-pi n)

  (define (get-numerator a)

       (cond((= a 1) 2)

           ((odd? a) (+ a 1))

       (else(+ a 2))))

  (define (get-denominator b)

      (cond ((odd? b) (+ b 2))

            (else (+ b 1))))

   (define (add1 c)

      (+ c 1))

 (* 4(exact->inexact  (/ (productget-numerator 1 add1 n)

                        (product get-denominator 1 add1 n)))))

如是,我们再来检测检测。

(get-pi 300)

;Value: 3.1467982645089903

参数n越大,计算得到的pi越精确。

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

本文转载自:http://blog.csdn.net/nomasp/article/details/43601455

NoMasp
粉丝 7
博文 334
码字总数 0
作品 0
镇江
程序员
私信 提问
华为交换机配置 &nbs

华为5752有效密码 Admin@huawei.com 如果不行,可选择尝试huawei huawei.com www.huawei.com a.交换机设置一个名称 sys [quidway]sysname JSHQ-02c14-ChaoWei-1.31 b.交换机设置 Dns [JSHQ-...

科技小能手
2017/11/12
0
0
李雯 2017-3-2 工作日报

8:00~9:30 業務内容: 1>处理 Amazon 网络订单8张 成果: 1.友盛売上伝票9张 2.友利売上伝票8张 3.友利仕入伝票9张 4.送り状9张 9:30~12:00 業務内容: 根据友盛売上和聖元仕入对照表录入2017....

ribunn
2017/03/02
3
0
光模块的多模和单模怎么区分?

光模块中的单模和多模,实际上只指光纤种类。LC/PC是指连接器的类型,单模,多模在模块上会有标式,单模SM,单模用于远距离,光纤为黄色。多模MM,多模用于近距离,光纤为橙色。 一般用于多模...

sq5288
2016/08/16
0
0
关东升的《从零开始学Swift》第2版已经出版

关东升的《从零开始学Swift》第2版已经出版 大家好: 苹果2015WWDC大会发布了Swift2.0,它较之前的版本Swift1.x有很大的变化,所以我即将出版《从零开始学Swift》 《从零开始学Swift》将在《...

tony关东升
2016/02/24
0
0
关东升的《从零开始学Swift》3月9日已经上架

大家一直期盼的《从零开始学Swift》于3月9日已经上架,它是关东升老师历时8个月的呕心沥血所编著,全书600多页,此本书基于Swift 2.x,通过大量案例全面介绍苹果平台的应用开发。全书共分5 部...

智捷课堂
2016/03/11
46
0

没有更多内容

加载失败,请刷新页面

加载更多

教你玩转Linux—添加批量用户

添加和删除用户对每位Linux系统管理员都是轻而易举的事,比较棘手的是如果要添加几十个、上百个甚至上千个用户时,我们不太可能还使用useradd一个一个地添加,必然要找一种简便的创建大量用户...

xiangyunyan
13分钟前
3
0
返回提示信息,如:xxx创建成功!

【服务端】在输出的方法块中,加入要输出的字段(qcm_batch_id) QCMUserType.cs: public struct QCM_Custom_Create_Batch_Out_Tag { public BASCoreType.Cmn_Out_T......

_Somuns
13分钟前
3
0
Aliyun Serverless VSCode Extension v1.12.0 发布

Aliyun Serverless VSCode Extension 是阿里云 Serverless 产品 函数计算 Function Compute 的 VSCode 插件,该插件结合了函数计算 Fun 工具以及函数计算 SDK ,是一款 VSCode 图形化开发调试...

阿里云官方博客
14分钟前
4
0
程序员如何培养解决复杂问题的能力?

今天在上网时候,突然看到了这篇文章,感觉非常的适合现在的自己去思考下,可能也适用在座的读者。程序员不仅仅是敲代码,更是一个复合能力的结合体,也不仅仅停留在技术和代码阶段。你想要成...

哥本哈根的小哥
17分钟前
5
0
市场变化驱动产品思维升级

宜信科技中心财富管理产品部负责人Bob,与大家一起聊聊个性化推荐产品功能的设计和B端产品的功能策划方式。 拓展阅读:回归架构本质,重新理解微服务 智慧金融时代,大数据和AI如何为业务赋能...

宜信技术学院
18分钟前
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部