摘要:
练习2.53这些题都比较简单,我就直接贴出结果了。(ab c)( (george))((y1 y2) )(y1y2)#f#f(readshoed blue socks) 版权声明:本文为 NoMasp柯于旺 原创文章,如需转载请联系... 阅读全文
摘要:
练习2.52在这道题上面的文字中就说到了用segments->painter提供线段表,这里的a小题的代码如下:(segments->painter (list(make-segment (make-vect 0.0 0.0)(make-vect 1.0 1.0))(make-segment .... 阅读全文
摘要:
练习2.51通过书中前面的内容,我们知道below中来将框架分成上下两部分,而beside将框架分成左右两部分。因此,below定义如下:(define (below painter1 painter2)(let ((split-point (make-vect 0.0 0.5)))(l... 阅读全文
摘要:
练习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 (... 阅读全文
摘要:
练习2.48(define (make-segment start end)(list start end))(define (start-segment s)(car s))(define (end-segment s)(cadr s))练习2.49待填充 ... 阅读全文
摘要:
练习2.47这道题重点就是要理清楚list和cons的关系了。我们依次来写出过程函数。(define (make-frame origin edge1 edge2)(list origin edge1 edge2))(define (origin-frame f) (car f))(define... 阅读全文
摘要:
练习2.46这道题就是彻头彻尾的”构造”了。直接上代码吧。(define (make-vect xcor ycor) (listxcor ycor))(define (xcor-vect v) (car v))(define (ycor-vect v) (cdr v))(define (add-... 阅读全文
摘要:
练习2.45我们先将right-split和up-split抽象出一个split来。(define (split big-combinersmall-combiner)(lambda (painter n)(if (= n 0)painter(let ((smaller ((split big-... 阅读全文
摘要:
练习2.44这一小节的内容真是太抽象了。这道题就是要我们来类比前面的right-split函数了。(define (up-split painter n)(if (= n 0)painter(let ((smaller (up-split painter (- n 1))))(below pai... 阅读全文
摘要:
练习2.43因为对于(enumerate-interval 1 board-size),Louis的过程会产生(queen-cols (- k 1))个棋盘,而上一练习中给出的代码则只产生board-size个棋盘。上一练习中,如果board-size为8,则会产生行列均为1、2……8的8个棋盘... 阅读全文
摘要:
练习2.42这道题曾经在C#中写过,但是写出来的代码却没有Lisp中的朴素。用了一大堆的数组和for循环。但是在这里,用car、cdr来构造就行了。我们按书中给出的步骤来一步一步求解这个问题。首先是棋局,就按书上的示意图,从上往下的来排皇后的位置。诸如此时书中皇后的位置为:’(6 3 1 7 5... 阅读全文
摘要:
练习2.41这道题其实就是书中素数示例的变种,其本质是一样的。因此我们也按照同样的次序来完成这个过程。首先第一步,我们来完成生成3个相异整数构成的三元组。但在上一题中我们已经写出了能够产生2个相异整数构成的二元组了。因此我们只要多产生一个i,让其与产生的二元组结合,便能产生三元组了。那么,开工吧... 阅读全文
摘要:
练习2.40这道题要我们写一个传入一个整数n然后返回一个序对(i, j)的过程unique-pairs,然后用于上一页的prime-sum-pairs的定义。此时我们要注意在prime-sum-pairs中哪一段代码表达的是这个意思。没错,是flatmap函数。因此我们将其写入到unique-p... 阅读全文
摘要:
练习2.39通过前一习题的类比相信已经知道了fold-left和fold-right的内在意义,本题中要求的逆序数可以用cons来构造。具体为,先将list的第一个元素取出用(cons (car list) ‘() )构造,接着第二个、第三个……用(cons…… (cons (car (car ... 阅读全文
摘要:
练习2.38这道题比较有意思了,我们先来将fold-left和accumulate类比,accumulate是递归,而fold-left是迭代。前者通过不断地将(op result (car rest)变换成initial,通过将(cdr rest)变换成sequence,而rest一开始其实就... 阅读全文
摘要:
练习2.37这道题花了我太长的时间了,一开始我就把题目中的m看成了w。然后题中给出的dot-product的两个参数我还以为一个是向量另一个是矩阵。怎么算都算不出来,直到看到“返回求和...”里的w只有一个i而没有j。好了,那么开始按照题目的要求来做题了。既然发现了自己的错误,那么就知道了dot... 阅读全文
摘要:
练习2.36虽然accumulate正在变得越来越复杂,但我还并未完全领悟到它的深刻意义。不过直觉告诉对于序列的序列,我们要做的是依次取出它每个序列的第一个元素。此方法来源于网络,我一直都是想着用lambda来写,最后感觉太复杂了。没想到一个map就解决了问题。Lisp中的高阶函数果然不仅仅是函... 阅读全文
摘要:
练习2.34书中一开始有2个式子,一个是原式,一个根据Horner规则构造出的式子。而我们同样也可以将待求得式子写成这种方式,而且可以更进一步——那就是写成Lisp的前序表示:(+ 1 (* x (+ 3 (* x (+ 0 (* x (+ 5 (* x(+ 0 x) ) ) ) ) ) ) )... 阅读全文
摘要:
练习2.35这道题中已经给定了accumulate和map,根据accumulate的参数可以很容易的知道题目中的2处需要我们补充的:(accumulate + 0 (map ...... 因为我们是要累加所有的树叶,这里就需要在map里有一个lambda来讲t中的树叶全部遍历出来,map的第二... 阅读全文
摘要:
练习2.33既然要用到accumulate,那么我们先来回顾一下这个函数好了。其有三个参数,一个操作符,一个用来作为初始化的值,一个是需要运算的序列。题目中的map已有的定义如下:(define (map p sequence)(accumulate (lambda (x y) )nilsequ... 阅读全文