SICP 习题 (1.16)解题总结

最新推荐文章于 2021-03-20 18:30:53 发布

keyboardOTA

最新推荐文章于 2021-03-20 18:30:53 发布

阅读量4.2k

点赞数 2

分类专栏： Scheme Lisp SICP Lisp进阶

本文链接：https://blog.csdn.net/keyboardOTA/article/details/11545893

版权

该博客详细介绍了将SICP中递归形式的快速求幂过程`fast-expt`转换为迭代过程的解题思路。通过分析递归调用和提前完成延时操作，如`square`和`*`，作者展示了如何引入临时变量来实现这一转换，从而将原本的递归计算转换为迭代计算，强调了这种方法在解决类似问题中的通用性。

摘要由CSDN通过智能技术生成

SICP习题1.16要求将书中递归形式的求幂过程fast-expt改写成迭代的。

如果对我们之前对于递归计算过程和迭代计算过程理解的比较透彻的话做这道题问题不大。

首先看看书中的fast-expt过程：

(define (fast-expt b n)
  (cond ((= n 0) 1)
	((even? n) (square (fast-expt b (/ n 2))))
	(else (* b (fast-expt b (- n 1))))))

可以清晰地看到过程中的square操作和 *操作是被推迟的操作，必须要等递归调用的fast-expt函数返回后才能进行计算，这就是我们之前曾经讨论过的递归计算过程。

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

keyboardOTA

关注关注

2
点赞
踩
3

收藏

觉得还不错? 一键收藏
2
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

SICP 习题 (1.22) 解题总结

keyboardOTA的专栏

01-19

2520

SICP 习题 1.22 要求改进题中列举出来检查素数的过程，用来求1000， 10000， 100 000，还有1000 000附近的素数，然后比较求这些素数的时间，看是否符合θ(√n)的复杂度。要完成这道题首先要将题目中列出的过程照抄到你的Scheme环境中。因为书中的代码使用了（runtime）过程，我就先在我的环境中测试了(runtime)的结果，很悲剧地发现(runtime)的返回值好

SICP 练习1.16

NM的专栏

06-01

430

用一个aa存答案就可以写出迭代的过程(define (fast-expt-iter a b n) ; a存的是答案 (cond ((= n 0) a) ; 终止情况 ((even? n) (fast-expt-iter a (* b b) (/ n 2))) ; n为偶数 (else (fast-expt-iter (* a b) b (- n 1))))) ;

2 条评论您还未登录，请先登录后发表或查看评论

SICP练习1.16

学习，再学习

03-20

203

在之前的学习中，我们学习了关于求幂的一系列算法；比如求幂的递归算法，这个算法的体验和之前学习的阶乘的算法是差不多的；一、求幂的递归算法实现利用(expt b n)中n不断减小达到n=0时返回值为1为终止， (if (= n 0) 1 (* b (expt b (- n 1)))) 这样一个过程得到的代换模型如下： (* b (* b (* b (...(* b (- n 1)))))) 此时的n为1，这里需要理解递归的过程。二、求幂的迭代算法实现利用一个计数器counter和一

【SICP练习】10 练习1.16

weixin_33694620的博客

02-05

练习1.16 这道题题目特别长，说的无非就是要用一个不变量记录中间结果，然后写出对数步数内的通过迭代来计算幂的函数，当然了还要用到题目中括号内的那个关系。下面就直接上代码了： (define(fast-expt b n) (fast-expt-iter 1 b n)) (define(fast-expt-iter a b n...

sicp 1.16解答

庄周梦蝶

05-11

222

此题充分展示了如何将递归转化为迭代的技巧：定义一个不变量，要求它在迭代状态之间保持不变！题目如下：写一个过程求平方，并且只用对数个步骤。解答：考虑一个附加状态a，如何保持ab**n(b**n表示b的n次方）在状态改变间保持不变.1)当n是偶数：a(b2)n/2 = abn bn = (bn/2)2 = (b2)n/2 在这个过程中回溯状态的迁移： a ← a b ← b2 ...

快速求幂 sicp练习1.16

独立之人格，自由之思想

05-13

171

(define (even? n) (= (remainder n 2) 0)) (define (fast-expt-iter result b n) (cond ((= n 0) 1) ((= n 1) (* result b)) ((even? n) (fast-expt-iter result (* b b) (/ n 2))) ...

SICP 习题答案

05-16

《计算机程序的构造和解释》...通过解答SICP的习题，读者将深入理解这些概念，并能运用到实际的编程实践中。习题旨在促进对这些基本原理的深入思考，帮助程序员建立坚实的基础，进而在面对复杂的编程挑战时能游刃有余。

sicp第二章练习题的解答

03-31

以上就是基于文件名推测的SICP第二章练习题相关知识点。这些内容深入地涵盖了函数式编程的基础和应用，对于提升编程思维和技能大有裨益。实际的学习过程中，通过阅读和理解这些代码，结合原书的理论部分，将有助于...

sicp:我的 SICP 练习

06-20

在" sicp-master "这个压缩包中，可能包含的是对SICP各章节练习题的解答，包括源代码、注释和分析。这些练习通常涵盖了函数式编程的基础，如高阶函数、递归、闭包，以及更高级的主题，如过程构造、数据结构、环境...

SICP 1.16 solution

Graphacker

05-06

453

(define (fast-expt b n) (fast-expt-iter b n 1)) (define (fast-expt-iter b n a) (cond ((= n 0) a) ((even? n) (fast-expt-iter (* b b) (/ n 2) a)) (else (fast-expt-iter b (- n 1) (* a b))

SICP习题 1.16 (对求幂进行优化)

weixin_30273931的博客

11-23

130

(define (fast-expt b n) (expt-iter b n 1)) (define (expt-iter b n a) (cond ((= n 0) a) ((even? n) (expt-iter (square b) (/ n 2) ...

sicp practice 1.16重新实现

messi

06-28

149

今天重新拿起了SICP,准备继续之前被The Little Schemer打断的计划。今天重新实现了下第一章的习题16，还重新实现了那个测试工具。习题代码： [code="scheme"](define square (lambda (n) (* n n))) (define fast-expt (lambda (a n ex) (cond ...

SICP 1.16-1.19

郭東的博客

08-31

441

习题1.16 (define (fast-expt b n) (define (fast-expt-iter result b n) if (

SICP 习题1.16-1.19体会

专注于移动互联网

11-02

1469

SICP 1.16-1.19习题体会

SICP 习题 (1.18) 解题总结

keyboardOTA的专栏

11-02

4316

SICP 习题 1.18是习题1.17的扩展，要求我们将1.17题中的对数步数求加法的过程修改成迭代方式。同时，习题1.18习题也是对习题1.16的强调，习题1.16是通过迭代方法求幂，这里是通过迭代方法求加法。所以我们需要回过头去看习题1.16和1.17。习题1.16是将以下函数进行修改：(define (fast-expt b n) (cond ((= n 0) 1) ((even?

递归计算过程和迭代计算过程

weixin_33940102的博客

08-09

208

这次主要想通过几个sicp的题目来说明递归计算过程和迭代计算过程。（1）阶乘 ;递归计算过程 (define (factorial n) (if (= n 1) 1 (* (factorial (- n 1)) n))) ;迭代计算过程 (define (fact-iter counter result) (if (= c...

计算机程序的构造与解释作业：练习1.16到1.19

ssjssh的专栏

11-11

1065

1.16 这个题目就是直译一下题目里面的公式。看开始我看了一下前面的题目，就高高兴兴的写出来了。如下： (define (even? n) (= (remainder n 2) 0)) (define (fast-expt b n) (cond((= n 0) 1) ((even? n) (fast-expt (* b b) (/ n 2))) (else (* b (

sicp 2.29练习题