摘要：
练习2.37这道题花了我太长的时间了，一开始我就把题目中的m看成了w。然后题中给出的dot-product的两个参数我还以为一个是向量另一个是矩阵。怎么算都算不出来，直到看到“返回求和...”里的w只有一个i而没有j。好了，那么开始按照题目的要求来做题了。既然发现了自己的错误，那么就知道了dot... 阅读全文
摘要：
练习2.36虽然accumulate正在变得越来越复杂，但我还并未完全领悟到它的深刻意义。不过直觉告诉对于序列的序列，我们要做的是依次取出它每个序列的第一个元素。此方法来源于网络，我一直都是想着用lambda来写，最后感觉太复杂了。没想到一个map就解决了问题。Lisp中的高阶函数果然不仅仅是函... 阅读全文
摘要：
练习2.35这道题中已经给定了accumulate和map，根据accumulate的参数可以很容易的知道题目中的2处需要我们补充的：(accumulate + 0 (map ...... 因为我们是要累加所有的树叶，这里就需要在map里有一个lambda来讲t中的树叶全部遍历出来，map的第二... 阅读全文
摘要：
练习2.34书中一开始有2个式子，一个是原式，一个根据Horner规则构造出的式子。而我们同样也可以将待求得式子写成这种方式，而且可以更进一步——那就是写成Lisp的前序表示：(+ 1 (* x (+ 3 (* x (+ 0 (* x (+ 5 (* x(+ 0 x) ) ) ) ) ) ) )... 阅读全文
摘要：
练习2.33既然要用到accumulate，那么我们先来回顾一下这个函数好了。其有三个参数，一个操作符，一个用来作为初始化的值，一个是需要运算的序列。题目中的map已有的定义如下：(define (map p sequence)(accumulate (lambda (x y) )nilsequ... 阅读全文
摘要：
练习2.31我想说我已经越来越喜欢抽象了，将上一题中的map版本的square-tree抽象的方法是添加一个参数f，f是一个函数，因此将square替换成f即可。如下。(define (map-tree f tree)(map (lambda (sub-tree)(if (pair? sub-t... 阅读全文
摘要：
练习2.30如果这道题感觉有点难度的话，可以回过头来看看75页定义的两个scale-tree。我的定义如下：(define (square-tree tree)(cond ((null? tree) ‘())((not (pair? tree)) (square tree))(else (con... 阅读全文
摘要：
练习2.29这种题，还有之前的那个rectangle的题目，对于变量、函数等的命名简直要让人疯掉。先来写出题目中的left-branch和right-branch吧。(define (left-branch mobile)(car mobile))(define (right-branch mo... 阅读全文
摘要：
练习2.28这道题是要我们找出树的所有树叶，参考第73页下面的count-leaves，当遍历这个树的时候也会有这三种情况：元素为空，元素不成对，以及元素成对。根据这个关系可以写出fringe如下：(define (fringe tree)(cond ((null? tree) ‘())((no... 阅读全文
摘要：
练习2.27又是修改程序的题目，要求我们写出的deep-reverse函数要将表中的元素也反转过来，这其中应该要用到递归来实现吧。(define (deep-reverse tree)(cond ((null? tree) ‘())((not (pair? tree)) tree)(else (... 阅读全文
摘要：
练习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))... 阅读全文
摘要：
练习2.23这道题就有小小的难度了。(define (for-each f lst)(cond ((not (null? lst))(f (car lst))(for-each f (cdr lst)))))如果用上前面经常用到的begin和if，这里还有另一种for-each实现。(defin... 阅读全文
摘要：
练习2.22题目中Louis的第一个程序将items中的元素一个一个的取出来然后平方然后”推“到answer中。而我们在上一题中则是迭代结构，是将元素平方后”推“到一个大盒子中，而大盒子里又有一个元素被平方然后被”推“到另一个稍微小点的大盒子中去。而修改后的程序看似解决了问题，其实错得更加离谱了... 阅读全文
摘要：
练习2.21如果在看SICP这本书之前做过其他准备工作，或者看过我的【Scheme归纳】那几篇文章，那这些题都是小case了。(define (square-list items)(if(null? items)‘()(cons (square (car items)) (square-list... 阅读全文
摘要：
练习2.20如果读懂了题目的意思这道题也是不难的，重点就是带点尾部记法形式的define。下面我们就来写出same-parity过程。(define (same-parity fist . other)(filter (if (even? fist) even?odd?)(cons first ... 阅读全文
摘要：
练习2.19这道题的题目比较长，但是难度却不大的。无非就是用cons、car、cdr等等，就像前面的矩形啊点啊什么的。(define (first-denominationcoin-values)(car coin-values))(define (except-first-denominati... 阅读全文
摘要：
练习2.18这道题也不难，通过迭代来完成。不过我想整个过程，无论是两个define还是一个define，都只用一个参数，但还为完成，希望有谁会的在博文下面评论咯。(define (reverse list)(reverse-iter list ‘()))(define (reverse-iter... 阅读全文
摘要：
练习2.17这道题就比较简单了，直接可以写出如下：(define (last-pair list)(if (null? (cdr list))list(last-pair (cdr list)))) 版权声明：本文为 NoMasp柯... 阅读全文
摘要：
待添加 版权声明：本文为 NoMasp柯于旺 原创文章，如需转载请联系本人。 阅读全文
摘要：
练习2.6如果这道题还没有做的请务必要先自己思考并检验。如果没有能够求出来，也可以在看完我推导的one之后自己再来推导two。一开始我也不懂题目中的两个式子是什么意思，甚至连怎么用都不知道。但我猜测到是不是可以用这两个式子来构造出one，以及two，还有后面的无数多个。既然有了想法，那么就开工吧。我... 阅读全文