SICP 习题1.3

最新推荐文章于 2019-10-07 11:48:38 发布
最新推荐文章于 2019-10-07 11:48:38 发布
阅读量327 收藏
点赞数
分类专栏： SICP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/NMfloat/article/details/51549907
版权 
(define (sum-two a1 a2 a3)
        (cond ((and (> a1 a3) (> a2 a3))(+ a1 a2))
              ((and (> a1 a2) (> a3 a2))(+ a1 a3))
              ((and (> a2 a1) (> a3 a1))(+ a2 a3)))
)
(sum-two 1 2 3)
运行结果：
5
_NMfloat_
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
SICP 习题答案
05-16
SICP 习题答案 计算机程序的构造和解释 1-3章 习题答案
SICP 习题答案1.3
尘埃的博客
02-06 484
求三个数中较大的两个数之和 (define (sum-of-two x y) (+ x y) ) (define (largest-two-sum x y z) (cond ( (= (min x y z) x) (sum-of-two y z) ) ( (= (min x y z) y)
SICP习题 1.3 (求较大两个数的递归)
aoliupa8726的博客
11-22 67
(define (SumOfTwoLarge x y z) (if (and (<= x y) (<= x z)) (+ (* y y) (* z z)) (SumOfTwoLarge y x z)) )(SumOfTwoLarge 0 2 2) 感觉我这个很取巧啊,哈哈哈哈. 我还是有点不习惯把函数名和形参放在一起. 转载于:htt...
SICP练习题 1.3~1.8
chuangong2592的博客
10-14 146
1.3 求三个数字中的两个大数之和（不考虑相等情况） (define (two-max-sum a b c) (cond ((and (< a b) (< a c)) (+ b c)) ((and (< b a) (< b c)) (+ a c))...
求最大两数之和（SICP 习题1.3 ）
dengxiqu4950的博客
10-07 213
《Structure and Interpreter of Computer Program》中第1章习题1.3说到： 练习1.3 请定义一个过程，它以三个数为参数，返回其中较大两个数之和。 其实这一段的中文版翻译错了，其实原版是说求最大两个数的平方和。但是意思是一样的。 为了这个简单的问题我也思考了挺长时间，就是得不到让我满意的解。三个数如何知道其中的两个较大的？其中的一...
SICP练习题 1.3~1.6
dulao5的专栏
03-12 443
 重新捧起SICP , 这次准备花半年到一年时间, 认真的读, 认真的做练习题. 并且希望能学会用Scheme 和 Common Lisp .Scheme 和 Common Lisp 是Lisp的两大方言, 说实话我今天才弄清楚这个概念. (参考Wikipedia, 上面说的比较清楚 ) 在我这个初学者看来, 能感受到的就是Scheme里面数据和函数是在同一个空间, 等同对待; 而Common Lisp的确是分属两个空间, 使用函数变量必须通过#'来标记.废话少说, 开始解题.1.3 求三个数中两个大数之和
《SICP》习题第1章
四毛毛的博客
11-13 1079
本人做的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的一些练习题
weixin_34304013的博客
10-15 106
SICP的一些练习题 1.3较大两个数之和 1 (define (MaxSum x y z) 2 (+ (cond ((or (> x y) (> x z)) x) 3 (else 0)) 4 (cond ((or (> y x) (> y z)) y) 5 ...
sicp第二章练习题的解答
03-31
NULL 博文链接：https://pengpeng.iteye.com/blog/1344689
MySICPSolutions:我对SICP练习的解决方案
03-09
我试图在这个寒假里学习旱灾，这是我对课本习题的解答。 我在sicp软件包中使用了DrRacket。 这些答案不一定正确，我可能无法解决所有练习。 但是您可以参考提供的标准解决方案我正在使用中文版的sicp。 教科书中有...
SICP习题解答，主要第一章的内容习题答案
12-26
SICP习题解答，主要第一章的内容习题答案
sicp 2016 from
10-28
Structure and Interpretation of Computer Programs
SICP 习题2.19 重写count-change 过程
NM的专栏
06-12 1055
(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 习题2.8 区间减法
NM的专栏
06-11 888
我的想法是区间减法是a区间的每一个数减去b区间的每一个数，这些相减的结果在一个区间上。也就是x的下界-y的上界是最小的，x的上界-y的下界是最大的。其他所有结果都在这两个数之间。(define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upp
SICP 练习1.35使用不动点发寻找黄金分割律
NM的专栏
06-04 848
前几个输出是书上介绍不动点法的几个样例(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 牛顿法求平方根
NM的专栏
05-31 824
(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.36 使用不动点发寻找x^x = 1000的根
NM的专栏
06-04 695
修改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 2.29练习题
最新发布
06-01
SICP 2.29节的练习题有两道： 1. 请用 unordered-list 实现集合，用 ordered-list 实现集合，并比较它们在插入、删除和查找操作上的性能差异。 2. 请实现一个用 unordered-list 表示集合的函数 `union-set`，它...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值