SICP 练习1.43 repeated

最新推荐文章于 2019-04-25 18:13:00 发布
最新推荐文章于 2019-04-25 18:13:00 发布
阅读量426 收藏 1
点赞数
分类专栏： SICP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/NMfloat/article/details/51586338
版权 
(define (compose f g)
  (lambda (x) (f (g x))))

(define (repeated f times)
  (if (= times 1)
    f
    (compose f (repeated f (- times 1)))))

(define (square x)
  (* x x))

((repeated square 2) 5)
_NMfloat_
关注
专栏目录
SICP 习题2.8 区间减法
NM的专栏
06-11 929
我的想法是区间减法是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 836
(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 习题 （1.43）解题总结
weixin_30730151的博客
04-25 137
SICP 习题 1.43 是前面两道题的延续，习题要求我们定义一个过程(repeat f n) 。当中f是一个单參数过程。题目要求我们通过repeat过程将过程f调用n次，注意是嵌套调用n次，不是连续调用n次。就是说结果应该是(f ( f ( … (f x) …)))。而不是(begin (...
SICP 部分习题答案
知识小屋
07-28 4345
1.1 10,12,8,3,10 6,a,b,19,#f,4,16,6,16 1.2 (/(+ 5 4 (- 2 (- 3 (+ 6(/ 4 5)))))(* 3 (- 6 2)(- 2 7))) or (/(+ 5 4 (-
SICP学习笔记（1.3.4）
weixin_33872660的博客
10-20 86
                                           SICP学习笔记（1.3.4）                                                周银辉 1，过程作为返回值 在1.3中我们明白了高阶函数之后，“用一个过程作为另外一个过程的返回值”则是稀松平常的事情了，比如下面的代码： (define (f x)  ...
sicp:我的 SICP 练习
06-20
《SICP：我的SICP练习》是关于Scheme编程语言和计算机程序设计原理的一份学习资料。SICP，全称《结构与解释程序》（Structure and Interpretation of Computer Programs），是由Harvard大学的Hal Abelson和MIT的...
sicp:我对SICP练习的回答
04-06
目前，我尚无时间表来完成SICP中的练习，这只是为了好玩。 如果不再有趣，我可能会停止更新此存储库。 阅读 阅读 阅读 阅读 阅读 其他注意事项： 通过学习 阅读 阅读 在为该存储库腾出更多时间之前，请...
sicp-clojure:在 Clojure 中解决的 SICP 练习
06-12
"sicp-clojure" 项目则是将 SICP 的练习用 Clojure 语言进行了实现，为学习者提供了从不同角度理解和应用 Lisp 风格编程的良好资源。 在这个项目中，你可以找到一系列 Clojure 代码，它们对应于 SICP 教程中的各个...
sicp:SICP练习的解决方案
04-05
文件"sicp-main"可能是包含了SICP书中各章节练习的解答或者是实现，这将有助于读者检验自己的理解或参考解题思路。在阅读和实践SICP的过程中，以下是一些关键知识点： 1. **函数式编程**：SICP的核心是函数式编程...
SICP 习题2.19 重写count-change 过程
NM的专栏
06-12 1090
(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 920
前几个输出是书上介绍不动点法的几个样例(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.3 计算矩形面积和周长
NM的专栏
06-10 719
我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(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 711
修改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 (
SICP 换零钱问题
NM的专栏
06-01 704
书上提到了迭代的算法，想到了完全背包，但是lisp功底太差，实现不了。(define (count-change amount) (cc amount 5))(define (cc amount kinds-of-coins) (cond ((= amount 0) 1) ((or (< amount 0) (= kinds-of-coins 0)) 0) (
SICP 习题2.42 八皇后问题
NM的专栏
07-01 633
想不到第一次写八皇后问题是用的scm写代码的途中遇到一个错误，用let错了，用define对了，应该是编译器的原因，和nil差不多。(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr
SICP 习题2.33 用accumulate完成一些基本的表操作
NM的专栏
06-24 628
这个accumulate比第一章完成更强大(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence)))))(define (map p sequence) (accu
SICP 练习1.7
NM的专栏
06-01 597
这个是改进good-enough?函数，容易想到，guess (improve guess x) 分别是上一次迭代和下一次迭代的结果，那么就可以测量这个变化来改进good-enough?函数(define (sqrt-iter guess x) (if (good-enough? guess (improve guess x)) guess (sqrt-iter (improve
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值