（不太会用mit scheme，在racket下#lang planet neil/sicp也可以搭建相应的开发环境。2.30-2.31延伸出treemap，WIKI上treemap是一种数据可视化的方式。而在书中，直接定义：(define (tree-map f tree) (cond ((...
分类：
其他好文 时间：
2015-09-14 09:27:59
阅读次数：
213
#lang racket(define (length items) (if (null? items) 0 (+ 1 (length (cdr items)))))(define (element-of-set? x set) (cond ((null? set) fals...
分类：
其他好文 时间：
2015-08-20 18:23:45
阅读次数：
139
emacs 搭建racket开发环境emacs下搭建开发racket的环境，笔者之前用过以下两种模式：geiser和racket-mode。相对而言，后一种方式要显得简单，本文主要介绍后一种方式环境的搭建(注：笔者是mac系统，其他系统类似)：下载和安装racket首先得下载racket的编译和运行环境，下载地址为http://download.racket-lang.org/。笔者是mac系统，下...
分类：
系统相关 时间：
2015-07-05 15:04:00
阅读次数：
353
#lang racket(define (accumulate op initial seq) (if (null? seq) initial (op (car seq) (accumulate op initial (cdr seq)))) );accumulat...
分类：
其他好文 时间：
2015-04-26 12:23:30
阅读次数：
205
#lang racket;guo lv qi(define (filter predicate sequence) (cond ((null? sequence) '()) ((predicate (car sequence)) (cons (car sequence) ...
分类：
其他好文 时间：
2015-04-20 22:38:28
阅读次数：
169
#lang racket(define (repeated f n) (define (compare f1 f2) (lambda(x) (f1 (f2 x)));lambda );compare (define (doing result n) (if (= ...
分类：
其他好文 时间：
2015-04-04 19:43:18
阅读次数：
155
#lang racket(define (double f) (lambda (x) (f (f x)) );lambda );double(define ((double1 f) x) (f (f x)) )(define (inc x) (+ x 1) );inc(((d...
分类：
其他好文 时间：
2015-04-04 18:00:30
阅读次数：
170
#lang racket(define (newton-transform g) (define dx 0.00001) (define (deriv g) (lambda (x) (/ (- (g (+ x dx)) (g x)) dx) );lambda );de...
分类：
其他好文 时间：
2015-04-04 12:01:26
阅读次数：
130
每日对着电脑，写代码程序，离开了外部世界的喧闹（racket），有点像基督徒的神职人员的生活，有点像中世纪传教士的生活![在此输入图片描述][1] [1]: http://static.oschina.net/uploads/space/2015/0401/120509_...
分类：
其他好文 时间：
2015-04-01 13:39:54
阅读次数：
304
#lang racket(define (cont-frac N D k) (define (cf t) (if (= t 1) (/ (N t) (D t)) (/ (N t) (+ (D t) (cf (- t 1)))) );if );cf (cf k) )...
分类：
其他好文 时间：
2015-03-29 15:00:48
阅读次数：
121
