SICP 练习1.9

最新推荐文章于 2017-11-22 19:45:00 发布

_NMfloat_

最新推荐文章于 2017-11-22 19:45:00 发布

阅读量299

点赞数

分类专栏： SICP

本文链接：https://blog.csdn.net/NMfloat/article/details/51550975

版权

SICP 专栏收录该内容

77 篇文章 2 订阅

订阅专栏

本文介绍了一种使用递归实现的add函数与一种使用迭代实现的add1函数。add函数通过递归调用自身并利用inc函数进行增量操作；而add1函数则采用迭代的方式，每次循环都减少一个数并通过incb进行增量操作。

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

add 函数是递归的

add1函数是迭代的

(define (inc x) (+ x 1))
(define (dec x) (- x 1))

(define (add a b)
  (if (= a 0)
    b
    (inc (add (dec a) b))))

(define (add1 a b)
  (if (= a 0)
    b
    (add1 (dec a) (inc b))))

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

_NMfloat_

关注关注

0
点赞
踩
0

收藏

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

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

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

857

(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练习】5 练习1.9

weixin_34384915的博客

02-05

103

以下是第一个加起两个正整数的方法，其中inc将参数加1，dec将参数减1。 (define (+ a b) (if(= a 0) b (inc (+ (dec a) b)))) 用代换模型展示(+ 4 5)如下： (+ 4 5) (inc (+ 3 5)) (in...

SICP 习题 (1.9) 解题总结

ithome

09-04

207

SICP 习题 1.9 开始针对“迭代计算过程”和“递归计算过程”，有关迭代计算过程和递归计算过程的内容在书中的1.2.1节有详细讨论，要完成习题1.9，必须完全吃透1.2.1节的内容，不然的话，即使从网上找来答案看也不能理解其中的真谛。书中1.2.1节是通过阶乘作为样例来讲解的，可能是因为作者们都是一些天才，所以他们都很喜欢使用数学样例，作为凡人的我们要理解他们在讲什么就需要先理解数学，...

SICP习题 1.9 (递归与迭代初探)

aoliupa8726的博客

11-22

157

(define (plus-Recursive a b) (if (= a 0) b (inc (plus-Recursive (dec a) b)))) (define (inc n) (+ n 1)) (define (dec n) (- n 1)) (plus-Recursive 3 5) 从计算过程中可以很明显地看到伸展和收缩两个阶段，且伸展阶段...

SICP练习题 1.9~1.13

chuangong2592的博客

10-15

208

1.9 递归OR迭代过程inc (将参数+1 ) 过程dec (将参数 -1) (define (+ a b) (if (= a 0) b (inc (+ (dec a) b)))) (define (+ a b) (if (= a 0) ...

SICP-Exercise 1.9

yqj2065的博客

07-18

909

Exercise 1.9，1.10

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

1116

(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

969

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

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 (

SICP 换零钱问题

NM的专栏

06-01

720

书上提到了迭代的算法，想到了完全背包，但是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

665

想不到第一次写八皇后问题是用的scm写代码的途中遇到一个错误，用let错了，用define对了，应该是编译器的原因，和nil差不多。(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr

sicp 2.29练习题