SICP 练习1.43 repeated

最新推荐文章于 2018-11-13 10:59:34 发布

原创最新推荐文章于 2018-11-13 10:59:34 发布 · 462 阅读

2 ·

CC 4.0 BY-SA版权

SICP 专栏收录该内容

77 篇文章

订阅专栏

本文介绍了使用Scheme语言实现函数的组合与迭代。通过定义composefg、repeatedftimes等函数来展示如何组合两个函数以及如何重复应用同一个函数多次。特别地，通过squarex函数和repeated函数的应用举例说明了如何计算数值的平方并重复该操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(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)

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

_NMfloat_

关注关注

1
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

SICP 习题（1.43）解题总结

weixin_30730151的博客

04-25

174

SICP 习题 1.43 是前面两道题的延续，习题要求我们定义一个过程(repeat f n) 。当中f是一个单參数过程。题目要求我们通过repeat过程将过程f调用n次，注意是嵌套调用n次，不是连续调用n次。就是说结果应该是(f ( f ( … (f x) …)))。而不是(begin (...

SICP 部分习题答案

知识小屋

07-28

4444

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

113

SICP学习笔记（1.3.4）周银辉 1，过程作为返回值在1.3中我们明白了高阶函数之后，“用一个过程作为另外一个过程的返回值”则是稀松平常的事情了，比如下面的代码： (define (f x) ...

【SICP练习】38 练习1.43

nomasp

02-17

1825

练习1.43 我不想一开始就将结果贴出啦，而是通过叙述自己的思考来完成这篇博客。上一题中我在纸上写下“传入2个过程并返回1个过程”，事实证明挺有效的，于是这次我也依旧这么做了。 repeated需要传入一个过程和一个数字，这个数字决定了这个过程的执行次数。repeated还要返回1个过程，而这个过程又要传入一个数字，这个数字又将通过前面传入的过程来运算。确实挺绕的。

【SICP练习】39 练习1.44

nomasp

02-17

1765

练习1.44 相信如果大家认真做了前面的几道习题，这一题就比较简单了。smooth过程几乎可以直接写出： (define smooth (lambda (f) (lambda (x) (/ (+ (f (- x dx)) (f x) (f (+ x dx)))

《SICP》习题第1章

四毛毛的博客

11-13

1286

本人做的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 解题集

alien10086的博客

05-20

1860

第一章练习1.15 a:p被使用啦5次 b:angle每乘以3，p多调用一次。空间和步数都为线性增长。练习1.16 (cond [(= n 0) a] [(even? n) (first-e (square b) (/ n 2) a )] [(odd? n) (first-e b (- n 1) (* a b ))])) (define (square x)

《SICP》中的一些练习题

Azarath Metrion Zinthos

06-09

1158

1.16(define (square n) (* n n)) (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 (my-expt b n) (defi

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:我对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

1161

(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

1021

前几个输出是书上介绍不动点法的几个样例(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

990

我的想法是区间减法是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

897

(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

784

我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(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

756

修改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 (