SICP 1.2.4 求幂

最新推荐文章于 2018-11-13 10:59:34 发布
最新推荐文章于 2018-11-13 10:59:34 发布
阅读量319 收藏
点赞数
分类专栏： SICP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/NMfloat/article/details/51558123
版权 
(define (fast-expt b n)
  (cond ((= n 0) 1)
        ((even? n) (square (fast-expt b (/ n 2))))
        (else (* b (fast-expt b (- n 1))))))

(define (even? n)
  (= (remainder n 2) 0))

(fast-expt 3 3)
_NMfloat_
关注
专栏目录
SICP学习记录
alien10086的博客
05-18 480
第一章 构造抽象过程1.1程序设计的基本元素1.基本表达形式 ：表示语言的最简单的个体 2.组合的方法：从简单的东西出发构造复合的元素 3.抽象的方法：为复合元素命名，并把它们当作单元操作1.1.1表达式456 （+ 4 5） 91.1.2命名（define size 2）1.1.3组合式求值（+ （+ 1 2） （* 1 2）） （+ 3 2） 51.1.4复合过程（define （s
sicp练习1.17 只有加减法 实现快速求幂
独立之人格，自由之思想
05-13 169
;double的功能是2*n (define (double n) (+ n n)) (double 5) ;*函数的功能是a乘以b (define (* a b) (if (= b 0) 0 (+ a (* a (- b 1))))) (* 3 4) ;havle-iter函数的功能是通过迭代获得n的一半的值,guess是...
SICP学习笔记 1.2.4 求幂
SavageGarden_Love的专栏
05-11 124
    练习1.16     根据提示, a*b^n保持不变、使用a来保存结果，观察如下变换过程     求b^100，(b n a)     -->(b 100 a)     -->(b^2 50 a)     -->(b^4 25 a)     此时根据fast-expt的过程，应将25执行减1操作，如果保持a*b^n不变，则可有如下变换     -->(...
《计算机程序的构造和解释》学习笔记
04-05 1222
学习计划：总22节，每节1天，预计22天学习时间+4天练习时间，2013年4月6日～2013年5月2日 20130406============================== Emacs中使用mit-scheme 安装好mit-scheme之后，虽然自带的edwin(类emacs编辑器)也不错了，但是缺少了语法高亮多少还是有点不方便。这里主要是讲如何在emacs里面使用mit-
SICP习题笔记（第一章）
果壳中的宇宙
04-30 374
前面九题是熟悉用于熟悉scheme，不做记录 第十题Ackermann函数的展开形式，在数学课本中有介绍 1.11 1 (define (f n) 2 (cond ((< n 3) n)
SICP习题 1.2.4 (求幂)
aoliupa8726的博客
11-23 106
(define (expte b n) (if (= n 0) 1 (* b (expte b (- n 1))))) ;(expte 2 200000);(expt 2 200000) (define (expta b n) (expta-iter b n 1)) (define (expta-iter b counter product) (if (=...
《SICP》习题第1章
四毛毛的博客
11-13 1184
本人做的SICP习题第1章，如有错误请指正，用的解释器是Racket   练习1.1 计算代码如下 ;; Exercise 1.1 #lang racket 10 (+ 5 3 4) (- 9 1) (/ 6 2) (+ (* 2 4) (- 4 6)) (define a 3) (define b (+ a 1)) (+ a b (* a b)) (= a b) (i...
SICP 解题集
chinaliping的专栏
08-12 2138
源网址：http://sicp.readthedocs.org/en/latest/# SICP 解题集 这个文档的目标是成为中文化的、完整的《计算机程序的构造和解释》一书的解题集。 这个解题集的特色是： 对于每道习题，除了习题答案之外，还给出习题的讲解和相关资料(如果有的话)； 使用 MIT Scheme 作为编程环境，完全避免了代码不兼容的问题； 所有代
sicp
03-20
《SICP》全称是《Structure and Interpretation of Computer Programs》，这是一本经典计算机科学教材，由Harvard大学的教授Harold Abelson和MIT的教授Gerald Jay Sussman合著，首次出版于1984年。这本书以其深入浅...
SICP:SICP解决方案
06-22
《SICP：SICP解决方案》是针对结构与解释程序设计（Structure and Interpretation of Computer Programs，简称SICP）这本书的详细解答和实践指南。SICP是一本经典的计算机科学教材，由Harold Abelson和Gerald Jay ...
sicp-py-zh：【译】UCB CS61a SICP Python
02-05
- **读取-求值-打印循环**（REPL）：学习如何交互式地测试和调试代码。 - **内部表示**：了解如何将程序转换为机器可以理解的形式。 8. **符号处理**： - **操作符和表达式**：学习如何处理和操作符号，理解...
sicp-py-zh:[译] UCB CS61a SICP Python 描述 中文版
05-29
UCB CS61a SICP Python 描述 原文： 译者： 协议： 前面是山，我们就爬山；前面是海，我们就渡海；前面是皇宫，我们就开炮！——《龙族前传》 ‍ 下载 Docker docker pull apachecn0/sicp-py-zh docker run -tid -p ...
SICP 习题答案
05-16
《计算机程序的构造和解释》（SICP）是一本极具影响力的计算机科学教材，由Harold Abelson和Gerald Jay Sussman所著，MIT出版社出版。这本书以其深入探讨编程概念、程序设计方法以及计算机系统的工作原理而闻名。1-3...
SICP 习题2.19 重写count-change 过程
NM的专栏
06-12 1114
(define (cc amount coin-values) (cond ((= amount 0) 1) ((or (< amount 0) (no-more? coin-values)) 0) (else (+ (cc amount (except-first-denomination coin-values)) (cc (
SICP 练习1.35使用不动点发寻找黄金分割律
NM的专栏
06-04 966
前几个输出是书上介绍不动点法的几个样例(define tolerance 0.00001)(define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (try guess) (let ((next (f guess)))
SICP 习题2.8 区间减法
NM的专栏
06-11 958
我的想法是区间减法是a区间的每一个数减去b区间的每一个数，这些相减的结果在一个区间上。也就是x的下界-y的上界是最小的，x的上界-y的下界是最大的。其他所有结果都在这两个数之间。(define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upp
SICP 牛顿法求平方根
NM的专栏
05-31 856
(define (sqrt-iter guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x)))(define (improve guess x) (average guess (/ x guess))) (define (average x y) (/ (+ x y) 2))(d
SICP 习题2.3 计算矩形面积和周长
NM的专栏
06-10 752
我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(define make-rect cons) (define s-rect car) (define e-rect cdr)(define make-point cons) (defi
SICP 习题1.36 使用不动点发寻找x^x = 1000的根
NM的专栏
06-04 721
修改fixed-point过程，在let里修改即可(define tolerance 0.00001)(define (fixed-point f first-guess) (newline) (display first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值