随笔分类 -  SICP

scheme入门
摘要:1.理解painter是个过程接受frame参数,即在frame中画painter 2.frame-coord-map 中将一个单位正方形中的点映射到一个新框架中 3.transform-painter 则是将painter映射到一个新框架中返回的也是一个过程,也可以理解为返回一个painter 阅读全文
posted @ 2017-02-22 21:28 lan126 阅读(203) 评论(0) 推荐(0)
摘要:1 #lang sicp 2 3 (#%require sicp-pict) 4 5 (define (make-vect a b) 6 (cons a b)) 7 8 (define (xcor-vect v) 9 (car v)) 10 11 (define (ycor-vect v) 12 ( 阅读全文
posted @ 2017-02-21 23:44 lan126 阅读(289) 评论(0) 推荐(0)
摘要:1 #lang sicp 2 3 (#%require sicp-pict) 4 5 6 ;;;;;;;;;;;;;;;;;;2.44 7 (define (up-split painter n) 8 (if (= n 0) 9 painter 10 (let ((smaller (up-split painter (- n 1)))) 11 ... 阅读全文
posted @ 2017-02-21 16:49 lan126 阅读(249) 评论(0) 推荐(0)
摘要:1 #lang racket 2 3 ;;;;;;;;;;;;;;;;;2.40 4 (define nil '()) 5 6 (define (accumulate op intial seq) 7 (if (null? seq) 8 intial 9 (op (car seq) 10 (accumulate op inti... 阅读全文
posted @ 2017-02-19 23:21 lan126 阅读(201) 评论(0) 推荐(0)
摘要:终于会一点了 需要复习线性代数了,感觉白学了! 阅读全文
posted @ 2017-02-17 22:54 lan126 阅读(212) 评论(0) 推荐(0)
摘要:在SICP这几节中加深对cons和list的理解的句子: 1.nil的值表示序对的链结束,它也可以当做一个不包含任何元素的序列,空表。 2.利用序对可以构造出的有用结构是序列——一批数据对象的有序汇集。 3.在本书中我们用术语表专指那些有表尾结束标记的序对的链。与此相对应,用术语表结构指所有由序对构 阅读全文
posted @ 2017-02-15 19:20 lan126 阅读(300) 评论(0) 推荐(0)
摘要:这一次的习题让我发现对cons和list的理解完全不是那么回事 参考资料 阅读全文
posted @ 2017-02-14 23:56 lan126 阅读(169) 评论(0) 推荐(0)
摘要:1 #lang racket 2 3 ;;;;;;;;;;;;;;;;;;;2.21 4 (define (square-list items) 5 (if (null? items) 6 null 7 (cons (square (car items)) 8 (square-list (cdr items))))) 9 ... 阅读全文
posted @ 2017-02-13 22:04 lan126 阅读(190) 评论(0) 推荐(0)
摘要:#lang racket ;;;;;;;;;;;;;;;;;;;;;;;;2.17 (define (last-pair L) (if (null? (cdr L)) L (last-pair (cdr L)))) ;;;;;;;;;;;;;;;;;;;;;;;2.18 (define (reverse L) (if (null? (cdr L)) ... 阅读全文
posted @ 2017-02-11 23:09 lan126 阅读(174) 评论(0) 推荐(0)
摘要:1 (require "sicp_2.7-2.11.rkt") 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;2.12 3 (define (make-center-width c w) 4 (make-interval (- c w) (+ c w))) 5 6 (define (make-center-percent c p) 7 (let... 阅读全文
posted @ 2017-02-10 11:49 lan126 阅读(279) 评论(0) 推荐(0)
摘要:(define (make-interval x y) (cons x y)) (define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upper-bound y)))) ;;;;;;;;;;;;;;;2.7 ... 阅读全文
posted @ 2017-02-08 18:00 lan126 阅读(202) 评论(0) 推荐(0)