摘要：
练习2.53这些题都比较简单，我就直接贴出结果了。(ab c)( (george))((y1 y2) )(y1y2)#f#f(readshoed blue socks) 版权声明：本文为 NoMasp柯于旺 原创文章，如需转载请联系... 阅读全文
posted @ 2015-02-22 14:06
nomasp
阅读(107)
评论(0)
推荐(0)
摘要：
练习2.52在这道题上面的文字中就说到了用segments->painter提供线段表，这里的a小题的代码如下：(segments->painter (list(make-segment (make-vect 0.0 0.0)(make-vect 1.0 1.0))(make-segment .... 阅读全文
posted @ 2015-02-22 14:06
nomasp
阅读(130)
评论(0)
推荐(0)
摘要：
练习2.51通过书中前面的内容，我们知道below中来将框架分成上下两部分，而beside将框架分成左右两部分。因此，below定义如下：(define (below painter1 painter2)(let ((split-point (make-vect 0.0 0.5)))(l... 阅读全文
posted @ 2015-02-22 14:05
nomasp
阅读(160)
评论(0)
推荐(0)
摘要：
练习2.50先来定义一个在水平方向上反转画家的函数。(define (flip-horiz painter)(transform-painter painter(make-vect 1.0 0.0)(make-vect 0.0 0.0)(make-vect 1.0 1.0)))(define (... 阅读全文
posted @ 2015-02-22 14:05
nomasp
阅读(123)
评论(0)
推荐(0)
摘要：
练习2.48(define (make-segment start end)(list start end))(define (start-segment s)(car s))(define (end-segment s)(cadr s))练习2.49待填充 ... 阅读全文
posted @ 2015-02-22 14:04
nomasp
阅读(131)
评论(0)
推荐(0)
摘要：
练习2.47这道题重点就是要理清楚list和cons的关系了。我们依次来写出过程函数。(define (make-frame origin edge1 edge2)(list origin edge1 edge2))(define (origin-frame f) (car f))(define... 阅读全文
posted @ 2015-02-22 14:04
nomasp
阅读(136)
评论(0)
推荐(0)
摘要：
练习2.46这道题就是彻头彻尾的”构造”了。直接上代码吧。(define (make-vect xcor ycor) (listxcor ycor))(define (xcor-vect v) (car v))(define (ycor-vect v) (cdr v))(define (add-... 阅读全文
posted @ 2015-02-22 14:03
nomasp
阅读(127)
评论(0)
推荐(0)
摘要：
练习2.45我们先将right-split和up-split抽象出一个split来。(define (split big-combinersmall-combiner)(lambda (painter n)(if (= n 0)painter(let ((smaller ((split big-... 阅读全文
posted @ 2015-02-22 14:03
nomasp
阅读(126)
评论(0)
推荐(0)
摘要：
练习2.44这一小节的内容真是太抽象了。这道题就是要我们来类比前面的right-split函数了。(define (up-split painter n)(if (= n 0)painter(let ((smaller (up-split painter (- n 1))))(below pai... 阅读全文
posted @ 2015-02-22 14:02
nomasp
阅读(117)
评论(0)
推荐(0)
摘要：
练习2.43因为对于(enumerate-interval 1 board-size)，Louis的过程会产生(queen-cols (- k 1))个棋盘，而上一练习中给出的代码则只产生board-size个棋盘。上一练习中，如果board-size为8，则会产生行列均为1、2……8的8个棋盘... 阅读全文
posted @ 2015-02-22 14:02
nomasp
阅读(173)
评论(0)
推荐(0)
摘要：
练习2.42这道题曾经在C#中写过，但是写出来的代码却没有Lisp中的朴素。用了一大堆的数组和for循环。但是在这里，用car、cdr来构造就行了。我们按书中给出的步骤来一步一步求解这个问题。首先是棋局，就按书上的示意图，从上往下的来排皇后的位置。诸如此时书中皇后的位置为：’(6 3 1 7 5... 阅读全文
posted @ 2015-02-22 14:01
nomasp
阅读(159)
评论(0)
推荐(0)
摘要：
练习2.41这道题其实就是书中素数示例的变种，其本质是一样的。因此我们也按照同样的次序来完成这个过程。首先第一步，我们来完成生成3个相异整数构成的三元组。但在上一题中我们已经写出了能够产生2个相异整数构成的二元组了。因此我们只要多产生一个i，让其与产生的二元组结合，便能产生三元组了。那么，开工吧... 阅读全文
posted @ 2015-02-22 14:00
nomasp
阅读(172)
评论(0)
推荐(0)
摘要：
练习2.40这道题要我们写一个传入一个整数n然后返回一个序对(i, j)的过程unique-pairs，然后用于上一页的prime-sum-pairs的定义。此时我们要注意在prime-sum-pairs中哪一段代码表达的是这个意思。没错，是flatmap函数。因此我们将其写入到unique-p... 阅读全文
posted @ 2015-02-22 14:00
nomasp
阅读(130)
评论(0)
推荐(0)
摘要：
练习2.39通过前一习题的类比相信已经知道了fold-left和fold-right的内在意义，本题中要求的逆序数可以用cons来构造。具体为，先将list的第一个元素取出用(cons (car list) ‘() )构造，接着第二个、第三个……用(cons…… (cons (car (car ... 阅读全文
posted @ 2015-02-22 13:59
nomasp
阅读(159)
评论(0)
推荐(0)
摘要：
练习2.38这道题比较有意思了，我们先来将fold-left和accumulate类比，accumulate是递归，而fold-left是迭代。前者通过不断地将(op result (car rest)变换成initial，通过将(cdr rest)变换成sequence，而rest一开始其实就... 阅读全文
posted @ 2015-02-22 13:59
nomasp
阅读(116)
评论(0)
推荐(0)
摘要：
练习2.37这道题花了我太长的时间了，一开始我就把题目中的m看成了w。然后题中给出的dot-product的两个参数我还以为一个是向量另一个是矩阵。怎么算都算不出来，直到看到“返回求和...”里的w只有一个i而没有j。好了，那么开始按照题目的要求来做题了。既然发现了自己的错误，那么就知道了dot... 阅读全文
posted @ 2015-02-22 13:58
nomasp
阅读(185)
评论(0)
推荐(0)
摘要：
练习2.36虽然accumulate正在变得越来越复杂，但我还并未完全领悟到它的深刻意义。不过直觉告诉对于序列的序列，我们要做的是依次取出它每个序列的第一个元素。此方法来源于网络，我一直都是想着用lambda来写，最后感觉太复杂了。没想到一个map就解决了问题。Lisp中的高阶函数果然不仅仅是函... 阅读全文
posted @ 2015-02-22 13:58
nomasp
阅读(184)
评论(0)
推荐(0)
摘要：
练习2.35这道题中已经给定了accumulate和map，根据accumulate的参数可以很容易的知道题目中的2处需要我们补充的：(accumulate + 0 (map ...... 因为我们是要累加所有的树叶，这里就需要在map里有一个lambda来讲t中的树叶全部遍历出来，map的第二... 阅读全文
posted @ 2015-02-22 13:57
nomasp
阅读(167)
评论(0)
推荐(0)
摘要：
练习2.34书中一开始有2个式子，一个是原式，一个根据Horner规则构造出的式子。而我们同样也可以将待求得式子写成这种方式，而且可以更进一步——那就是写成Lisp的前序表示：(+ 1 (* x (+ 3 (* x (+ 0 (* x (+ 5 (* x(+ 0 x) ) ) ) ) ) ) )... 阅读全文
posted @ 2015-02-22 13:57
nomasp
阅读(136)
评论(0)
推荐(0)
摘要：
练习2.33既然要用到accumulate，那么我们先来回顾一下这个函数好了。其有三个参数，一个操作符，一个用来作为初始化的值，一个是需要运算的序列。题目中的map已有的定义如下：(define (map p sequence)(accumulate (lambda (x y) )nilsequ... 阅读全文
posted @ 2015-02-22 13:56
nomasp
阅读(141)
评论(0)
推荐(0)
摘要：
练习2.31我想说我已经越来越喜欢抽象了，将上一题中的map版本的square-tree抽象的方法是添加一个参数f，f是一个函数，因此将square替换成f即可。如下。(define (map-tree f tree)(map (lambda (sub-tree)(if (pair? sub-t... 阅读全文
posted @ 2015-02-22 13:55
nomasp
阅读(125)
评论(0)
推荐(0)
摘要：
练习2.30如果这道题感觉有点难度的话，可以回过头来看看75页定义的两个scale-tree。我的定义如下：(define (square-tree tree)(cond ((null? tree) ‘())((not (pair? tree)) (square tree))(else (con... 阅读全文
posted @ 2015-02-22 13:53
nomasp
阅读(123)
评论(0)
推荐(0)
摘要：
练习2.29这种题，还有之前的那个rectangle的题目，对于变量、函数等的命名简直要让人疯掉。先来写出题目中的left-branch和right-branch吧。(define (left-branch mobile)(car mobile))(define (right-branch mo... 阅读全文
posted @ 2015-02-22 13:52
nomasp
阅读(130)
评论(0)
推荐(0)
摘要：
练习2.28这道题是要我们找出树的所有树叶，参考第73页下面的count-leaves，当遍历这个树的时候也会有这三种情况：元素为空，元素不成对，以及元素成对。根据这个关系可以写出fringe如下：(define (fringe tree)(cond ((null? tree) ‘())((no... 阅读全文
posted @ 2015-02-22 13:52
nomasp
阅读(130)
评论(0)
推荐(0)
摘要：
练习2.27又是修改程序的题目，要求我们写出的deep-reverse函数要将表中的元素也反转过来，这其中应该要用到递归来实现吧。(define (deep-reverse tree)(cond ((null? tree) ‘())((not (pair? tree)) tree)(else (... 阅读全文
posted @ 2015-02-22 13:51
nomasp
阅读(147)
评论(0)
推荐(0)
摘要：
练习2.23这道题就有小小的难度了。(define (for-each f lst)(cond ((not (null? lst))(f (car lst))(for-each f (cdr lst)))))如果用上前面经常用到的begin和if，这里还有另一种for-each实现。(defin... 阅读全文
posted @ 2015-02-22 13:50
nomasp
阅读(109)
评论(0)
推荐(0)
摘要：
练习2.24其打印结果为：(1 (2 (3 4)))练习2.25(define x ‘(1 3 (5 7) 9))(cadr (caddr x));Value: 7(define y ‘((7)))(caar y);Value: 7(define z ‘(1 (2 (3 (4 (5 (6 7))... 阅读全文
posted @ 2015-02-22 13:50
nomasp
阅读(110)
评论(0)
推荐(0)
摘要：
练习2.22题目中Louis的第一个程序将items中的元素一个一个的取出来然后平方然后”推“到answer中。而我们在上一题中则是迭代结构，是将元素平方后”推“到一个大盒子中，而大盒子里又有一个元素被平方然后被”推“到另一个稍微小点的大盒子中去。而修改后的程序看似解决了问题，其实错得更加离谱了... 阅读全文
posted @ 2015-02-22 13:49
nomasp
阅读(131)
评论(0)
推荐(0)
摘要：
练习2.21如果在看SICP这本书之前做过其他准备工作，或者看过我的【Scheme归纳】那几篇文章，那这些题都是小case了。(define (square-list items)(if(null? items)‘()(cons (square (car items)) (square-list... 阅读全文
posted @ 2015-02-22 13:48
nomasp
阅读(88)
评论(0)
推荐(0)
摘要：
练习2.20如果读懂了题目的意思这道题也是不难的，重点就是带点尾部记法形式的define。下面我们就来写出same-parity过程。(define (same-parity fist . other)(filter (if (even? fist) even?odd?)(cons first ... 阅读全文
posted @ 2015-02-22 13:48
nomasp
阅读(125)
评论(0)
推荐(0)
摘要：
练习2.19这道题的题目比较长，但是难度却不大的。无非就是用cons、car、cdr等等，就像前面的矩形啊点啊什么的。(define (first-denominationcoin-values)(car coin-values))(define (except-first-denominati... 阅读全文
posted @ 2015-02-22 13:47
nomasp
阅读(129)
评论(0)
推荐(0)
摘要：
练习2.18这道题也不难，通过迭代来完成。不过我想整个过程，无论是两个define还是一个define，都只用一个参数，但还为完成，希望有谁会的在博文下面评论咯。(define (reverse list)(reverse-iter list ‘()))(define (reverse-iter... 阅读全文
posted @ 2015-02-22 13:47
nomasp
阅读(142)
评论(0)
推荐(0)
摘要：
练习2.17这道题就比较简单了，直接可以写出如下：(define (last-pair list)(if (null? (cdr list))list(last-pair (cdr list)))) 版权声明：本文为 NoMasp柯... 阅读全文
posted @ 2015-02-22 13:46
nomasp
阅读(94)
评论(0)
推荐(0)
摘要：
待添加 版权声明：本文为 NoMasp柯于旺 原创文章，如需转载请联系本人。 阅读全文
posted @ 2015-02-22 13:45
nomasp
阅读(130)
评论(0)
推荐(0)
摘要：
练习2.6如果这道题还没有做的请务必要先自己思考并检验。如果没有能够求出来，也可以在看完我推导的one之后自己再来推导two。一开始我也不懂题目中的两个式子是什么意思，甚至连怎么用都不知道。但我猜测到是不是可以用这两个式子来构造出one，以及two，还有后面的无数多个。既然有了想法，那么就开工吧。我... 阅读全文
posted @ 2015-02-22 13:44
nomasp
阅读(146)
评论(0)
推荐(0)
浙公网安备 33010602011771号