【SICP】
关注
分享
扫一扫
wangxiaobupt
这个作者很懒，什么都没留下…
展开
-
SICP 1.11
递归版(define (f n) (if (< n 3) n (+ (f (- n 1)) (* (f (- n 2)) 2) (* 3 (f (- n 3))))))迭代版(define (ff n) (if (< n 3) n (f-iter 2 1 0 (- n 2))))(define (f-iter a b原创 2015-07-17 12:19:11 · 690 阅读 · 0 评论 -
SICP 1.7
原来的牛顿求平方根法如下：(define (sqrt-iter guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x)))(define (improve guess x) (average guess (/ x guess)))(d原创 2015-07-16 12:09:40 · 801 阅读 · 0 评论 -
mit-scheme编译文件
将scheme代码写好以.scm后缀，比如sum.scm(define (sum a b)(+ a b))首先进入该文件的目录下运行schememit-scheme接着编译.scm文件(cf "sum")之后将这个模块导入(load "sum")之后就可以在环境中使用sum函数了1 ]=> (sum 1 2);Value:原创 2015-07-16 10:48:07 · 2782 阅读 · 0 评论