【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 · 638 阅读 · 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 · 747 阅读 · 0 评论 -
mit-scheme编译文件
将scheme代码写好以.scm后缀,比如sum.scm (define (sum a b)(+ a b)) 首先进入该文件的目录下运行scheme mit-scheme 接着编译.scm文件 (cf "sum") 之后将这个模块导入 (load "sum") 之后就可以在环境中使用sum函数了 1 ]=> (sum 1 2) ;Value:原创 2015-07-16 10:48:07 · 2721 阅读 · 0 评论