SICP 习题2.20 same-parity

最新推荐文章于 2020-05-10 10:46:25 发布
最新推荐文章于 2020-05-10 10:46:25 发布
阅读量415 收藏
点赞数
分类专栏： SICP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/NMfloat/article/details/51648690
版权 
(define same-parity
  (lambda (x . y)
    (define iter
      (lambda (z res)
    (if (null? z) res (if (= (remainder (car z) 2) (remainder x 2)) (iter (cdr z) (cons res (car z))) (iter (cdr z) res)))))
    (iter y x)))

(same-parity 1 2 3 4 5 6 7)
_NMfloat_
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
SICP 习题 （2.20）解题总结: 不确定数量参数
keyboardOTA的专栏
01-08 2130
SICP 习题 2.20 引入了一种新的函数调用方式，就是带 . 符号的不确定参数调用方式。题中也讲到了， Scheme支持这种调用方式，如果我们把方法定义成下面这个样子(define (my-method first-p . others-p) ;….. ) 我们就可以在调用方法my-method时传入大于2的任何数量的参数，比如：(my-method 1 2 3 4 5 6)这时my-
【SICP练习】52 练习2.20
weixin_34119545的博客
02-22 252
 练习2.20 如果读懂了题目的意思这道题也是不难的，重点就是带点尾部记法形式的define。下面我们就来写出same-parity过程。 (define (same-parity fist . other) (filter (if (even? fist) even? o...
sicp 习题 2.17 ~ 2.20
zhangle
11-04 248
2.17 [code="java"] (define (my-last-pair l) (if (null? (cdr l)) (car l) (last-pair (cdr l)))) (my-last-pair (list 23 72 149 34)) [/code] 2.18 [code="java"] (define (my-reve...
SICP Exercise 2.20+
天之道，损有余而补不足。人之道，则不然，损不足以奉有余。
08-26 173
(define x (list (list 1 2) (list 3 4))) x (car (cdr x)) (car x) (define (deep-reverse items) (display items) (newline) (cond ((null? items) ()) (( not (pair? items)) ite...
Same Parity Summands
萌新的博客
05-10 264
思路 题意：让你从1~n内的数字中选出k个数字，使得所有k个数字和为n，并且这k个数字要么是奇数，要么是偶数。 我们可以观察一下题目要求，进行分类讨论 1.如果n是偶数，要分成k个偶数，我们可以令k-1数字都是2，这样可以分的偶数最多，最多可以分成n/2个2，那么k一定要小于等于n/2，这样我们令其中k-1个数字都是2，剩下一个数字就是 n-（k-1）*2. 2.如果n是偶数，分成k个奇数，那么前提是k为偶数，不然奇数个奇数不可能为偶数，我们可以令其中k-1个数字都是1，这样可以分成的奇数最多，那么k必须
sicp-py-zh:[译] UCB CS61a SICP Python 描述 中文版
05-29
UCB CS61a SICP Python 描述 原文： 译者： 协议： 前面是山，我们就爬山；前面是海，我们就渡海；前面是皇宫，我们就开炮！——《龙族前传》 ‍ 下载 Docker docker pull apachecn0/sicp-py-zh docker run -tid -p ...
SICP 习题答案
05-16
SICP 习题答案 计算机程序的构造和解释 1-3章 习题答案
sicp-js-zh:【译】NUS CS1101s SICP JavaScript 描述
05-30
NUS CS1101s SICP JavaScript 描述原文：协议：如果你交给某人一个程序，你将折磨他一整天；如果你教某人如何编写程序，你将折磨他一辈子。——David Leinweber贡献指南本项目需要校对，欢迎大家提交 Pull Request。...
激光表面熔覆SiCp/Ni-Cr-B-Si-C涂层的组织演化及其相确定
02-11
运用激光熔覆技术在AISI1045钢表面制备了30vol-% SiCp/Ni-Cr-B-Si-C涂层。SEM和TEM观察分析表明：SiCp在熔覆过程中完全溶解；涂层结合区组织为共晶结构；涂层组织由初生石墨球G,分布在γ-Ni固溶体枝晶中的M23(C,B)6...
SICP-ANSWER:MIT-Scheme 版本的答案
06-29
SICP-答案 SICP 中的问题解答。 支持两个版本。 除非有注释，否则所有这些都是可运行的。 大多数答案不能保证是正确的，因为它们没有经过深入测试。 但是，第4章中的解释器，即EVAL-APPLY、ANALYZE-EVAL-APPLY、AMB...
SICP 2.20 2.21 2.23
weixin_34041003的博客
08-02 86
为什么80%的码农都做不了架构师？>>> ...
SICP 习题2.19 重写count-change 过程
NM的专栏
06-12 1058
(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 896
我的想法是区间减法是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 852
前几个输出是书上介绍不动点法的几个样例(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 696
修改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.3 计算矩形面积和周长
NM的专栏
06-10 695
我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(define make-rect cons) (define s-rect car) (define e-rect cdr)(define make-point cons) (defi
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、付费专栏及课程。

余额充值