SICP 练习1.18

最新推荐文章于 2018-11-13 10:59:34 发布
原创 最新推荐文章于 2018-11-13 10:59:34 发布 · 354 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了一种快速乘法算法，通过将乘法操作分解为加法、加倍和减半操作来实现高效的数值乘法。该算法特别适用于计算机科学领域的编程和数学计算。
部署运行你感兴趣的模型镜像
与做ab的方法类似，将b减半，将a加倍，直到b为0
(define (double x) (+ x x))
(define (halve x) (/ x 2))
(define (even? x)
  (= (remainder x 2) 0))

(define (fast-multiply ret a b)
  (cond ((= b 0) ret)
        ((even? b) (fast-multiply ret (double a) (halve b)))
        (else (fast-multiply  (+ ret a) a (- b 1)))))

(define (multiply a b)
  (fast-multiply 0 a b))

(multiply 8 11)

您可能感兴趣的与本文相关的镜像

Stable-Diffusion-3.5

Stable-Diffusion-3.5

图片生成
Stable-Diffusion

Stable Diffusion 3.5 (SD 3.5) 是由 Stability AI 推出的新一代文本到图像生成模型，相比 3.0 版本，它提升了图像质量、运行速度和硬件效率

sicp:我的 SICP 练习
06-20
《SICP：我的SICP练习》是关于Scheme编程语言和计算机程序设计原理的一份学习资料。SICP，全称《结构与解释程序》（Structure and Interpretation of Computer Programs），是由Harvard大学的Hal Abelson和MIT的...
sicp-solutions:SICP练习解决方案
05-19
"sicp-solutions"是一个针对该书练习题的解答集，主要使用了Scheme语言，一个Lisp方言，而具体的实现环境是mit-scheme 9.2。 Scheme语言是Lisp家族的一员，以其简洁的语法和强大的函数式编程特性闻名。在"sicp-...
SICP 解题集
chinaliping的专栏
08-12 2201
源网址：http://sicp.readthedocs.org/en/latest/# SICP 解题集 这个文档的目标是成为中文化的、完整的《计算机程序的构造和解释》一书的解题集。 这个解题集的特色是： 对于每道习题，除了习题答案之外，还给出习题的讲解和相关资料(如果有的话)； 使用 MIT Scheme 作为编程环境，完全避免了代码不兼容的问题； 所有代
【SICP练习】12 练习1.18
weixin_33997389的博客
02-05 157
 练习1.8 和前两题一样，依旧是只能用对数步数。而且这个迭代过程要基于加、加倍和折半运算。这一个习题要用到前面的函数，因此最好的做法是，每次都将写好的代码保存起来。 (load“Test1.18.scm”) 这行代码可以用来加载代码。而保存可以用C-X,C-W。 以下是该题的代码，这次我们写成块结构： (define(* x y) ...
SICP习题 1.18 (对求乘积进行优化)
aoliupa8726的博客
11-24 139
(define (double a) (+ a a)) (define (halve a) (/ a 2)) (define (mult a b) (mult-iter a b 0)) (define (mult-iter a b product) (cond ((= b 0) product) ((even? b) (mu...
sicp习题 1.17 1.18解答
庄周梦蝶
05-11 303
    这两道题目没什么难度了，幂运算是连续乘，乘法运算就是连续加，改造一下书中的例子和习题1.16就可以了，还是分析一下。习题1.17:已知两个过程,double过程可以求出一个整数的两倍，而halve过程将一个偶数除以2;要求写出一个过程，只用对数个步骤计算两个整数的乘积。解答:计算a*b，考虑两种情况：1)当b是偶数时：a*b=2(a*(b/2))2)当b是奇数时：a*b=a*(b-1)+a...
SICP 习题 (1.18) 解题总结
keyboardOTA的专栏
11-02 4389
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?
sicp练习1.18 基于加法、加倍和折半运算求两个整数之乘积
独立之人格，自由之思想
05-13 243
;double的功能是2*n (define (double n) (+ n n)) (double 5) ;havle-iter函数的功能是通过迭代获得n的一半的值,guess是初始猜测值 (define (havle-iter guess n) (cond ((not (integer? n)) (display "error: 原因havle函数的参数是整数...
《SICP》习题第1章
四毛毛的博客
11-13 1336
本人做的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:我对SICP练习的回答
04-06
目前，我尚无时间表来完成SICP中的练习，这只是为了好玩。 如果不再有趣，我可能会停止更新此存储库。 阅读 阅读 阅读 阅读 阅读 其他注意事项： 通过学习 阅读 阅读 在为该存储库腾出更多时间之前，请...
sicp-clojure:在 Clojure 中解决的 SICP 练习
06-12
"sicp-clojure" 项目则是将 SICP 的练习用 Clojure 语言进行了实现，为学习者提供了从不同角度理解和应用 Lisp 风格编程的良好资源。 在这个项目中，你可以找到一系列 Clojure 代码，它们对应于 SICP 教程中的各个...
SICP 习题2.19 重写count-change 过程
NM的专栏
06-12 1185
(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 1073
前几个输出是书上介绍不动点法的几个样例(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 1014
我的想法是区间减法是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 928
(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 801
我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(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 796
修改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、付费专栏及课程。

余额充值