练习2.17
;; 直接利用已经实现的list-ref和length过程即可
(define (last-pair items)
(if (null? items)
(display "null")
(list-ref items (- (length items) 1))))
练习2.18
;; 翻转即为将列表第二个元素翻转再加上第一个元素
(define (reverse items)
(if (null? items)
'()
(append (reverse (cdr items)) (list (car items)))))
;; 翻转即为倒序取列表值再组合成新的列表
(define (reverse items)
(define (reverse-iter a n)
(if (< n 0)
'()
(cons (list-ref a n) (reverse-iter a (- n 1)))))
(reverse-iter items (- (length items) 1)))
练习2.19
(define (no-more? coin-values)
(null? coin-values))
(define (except-first-denomination coin-values)
(cdr coin-values))
(define (first-denomination coin-values)
(car coin-values))
1 ]=> (cc 100 us-coins)
;Value: 292
1 ]=> (cc 100 (reverse us-coins))
;Value: 292
;; 改变coin-values的顺序不会影响结果
;; 因为在cc过程中递归的累加 只用某种币值的兑换种数和除去这种币值后的兑换种数, 因此和次数无关
练习2.20
;; 首先定义flag过程, 以判断传入的两个数是否奇偶性一致
;; 然后在get-list过程中递归使用cdr取列表的剩余部分完成奇偶性检查
;; 最后将参数拼接成列表调用get-list过程
(define (same-parity x . y)
(define (flag a b)
(= (remainder a 2) (remainder b 2)))
(define (get-list items)
(if (null? items)
'()
(if (flag x (car items))
(cons (car items) (get-list (cdr items)))
(get-list (cdr items)))))
(get-list (cons x y)))
1 ]=> (same-parity 1 2 3 4 5 6 7)
;Value : (1 3 5 7)
1 ]=> (same-parity 2 3 4 5 6 7)
;Value : (2 4 6)
1 ]=> (same-parity 2 2 0 128 6 7)
;Value : (2 2 0 128 6)
练习2.21
(define (square-list items)
(if (null? items)
'()
(cons (square (car items))
(square-list (cdr items)))))
(define (square-list items)
(map (lambda (x) (square x)) items))
练习2.22
;; Louis在组成新的结果时, 在cons的两个参数上搞反了
;; 调整之后因为对列表和数值直接结合导致出现如下结果
;Value : (((((() . 1) . 4) . 9) . 16) . 25)
;; 因此做如下修正, 将数值变换为列表然后再和之前的结果相加
(define (square-list items)
(define (iter things answer)
(if (null? things)
answer
(iter (cdr things)
(append answer
(list (square (car things)))))))
(iter items '()))
练习2.23
(define (for-each proc items)
(if (null? items)
'()
(and (proc (car items))
(for-each proc (cdr items)))))
分享到:
相关推荐
sicp in python 中文版 sicp in python 中文版 sicp in python 中文版 !!!download>>>https://github.com/wizardforcel/sicp-py-zh
SICP中文第二版SICP中文第二版SICP中文第二版SICP中文第二版SICP中文第二版
SICP-Python版本
Python SICP epub版本,很适合学习抽象的思想,用Python版本比lisp更实用
Learn_sicp 学习sicp的一些代码
SICP 使用的scheme解释器 以前叫DrScheme
sicp_notes SICP笔记和练习 资源 笔记 使用第一版,最高为ex 1.24。 从ex 1.31开始切换到第二版。
sicp 2.2.4节图形语言的racket程序包,配置路径,C:\Users\Administrator\AppData\Roaming\Racket
SICP 解题集
SICP CHINESE ENGLISH THE SECOND EDITION SICP CHINESE ENGLISH THE SECOND EDITION
请参考那些正在学习SICP的人。 笔记 如果你想在 gauch 中使用随机函数 (use math.mt-random) (define m (make <mersenne> :seed (sys-time))) (mt-random-integer m 1000) (define (random n) (mt-random-integer ...
SICP 习题答案 计算机程序的构造和解释 1-3章 习题答案
sicp in python 中文版 sicp in python 中文版 sicp in python 中文版 download : https://github.com/wizardforcel/sicp-py-zh
SICP习题解答,主要第一章的内容习题答案
资源来自pypi官网。 资源全名:sicp-0.0.1b102.dev4.tar.gz
sicp-in-python(中文版+英文版)PDF 背景. SICP 全称Structure and Interpretation of Computer Programs,翻译过来叫《计算机程序的构造和解释》使用python
资源名称:sicp 和 操作系统:精髓与设计原理第七版资源截图: 资源太大,传百度网盘了,链接在附件中,有需要的同学自取。
#SICP SICP解决方案
经典书籍《计算机程序的构造与解释》,UCB热门课程CS61a的官方教材