SavageGarden
- 浏览: 216080 次
- 性别:
- 来自: 北京
-
最新评论
-
andy1015：
请教下楼主rtx问题 ，可以么
用HttpClient实现同步RTX -
cgp17：
请教：Chukwa支持Push数据吗？目前看到的都是Polli ...
基于Hadoo的日志收集框架---Chukwa的源码分析(适配器、代理) -
jimmee：
尼玛, 现在iteye的质量下降到何种水准了.
Mahout协同过滤框架Taste的源码分析 -
aubdiy：
aubdiy 写道我擦。。。。 这你叫分析才看到， 还有个 “ ...
Mahout协同过滤框架Taste的源码分析 -
aubdiy：
我擦。。。。 这你叫分析
Mahout协同过滤框架Taste的源码分析
文章列表
SICP学习笔记 2.1.4 扩展练习：区间算术
- 博客分类：
- SICP
练习2.7
;; 抽象对象"区间"有两个端点, 一个下界一个上界, 则直接有如下过程
(define (lower-bound x) (car x))
(define (upper-bound x) (cdr x))
练习2.8
(define (sub-interval x y)
(make-interval (- (lower-bound x) (upper-bound y))
(- (upper-bound x) (lower-bound y))))
练习2.9
...
练习2.4
(define (new-cons x y)
(lambda (m) (m x y)))
(define (new-car z)
(z (lambda (p q) p)))
;; 使用代换模型，(new-car (new-cons x y))的变换过程如下
(new-car (new-cons x y))
==> (new-car (lambda (m) (m x y)))
==> ((lambda (m) (m x y)) (lambda (p q) p))
==> 此时即为使用过程(lambda (p q) p) ...
SICP学习笔记 2.1.2 抽象屏障
- 博客分类：
- SICP
练习2.2
(define (make-point x y)
(cons x y))
(define (x-point p)
(car p))
(define (y-point p)
(cdr p))
(define (make-segment m n)
(cons m n))
(define (start-segment s)
(car s))
(define (end-segment s)
(cdr s))
(define (midpoint-segment s)
(make-point (/ (+ (x-p ...
练习 2.1
(define (make-rat n d)
(let ((g (gcd n d)))
(if (and (< d 0) (> g 0))
(cons (/ (- n) g) (/ (- d) g))
(cons (/ n g) (/ d g)))))
1 ]=> (print-rat (make-rat 6 -7))
-6/7
1 ]=> (print-rat (make-rat -6 -7))
6/7
SICP学习笔记 1.3.4 过程作为返回值
- 博客分类：
- SICP
练习 1.40
(define (cubic a b c)
(lambda (x)
(+ (cube x) (* a (square x)) (* b x) c)))
1 ]=> (newtons-method (cubic 1.0 1.0 -3.0) 1.0)
;Value: 1.
练习 1.41
(define (double f)
(lambda (x) (f (f x))))
(define (inc x)
(+ x 1))
1 ]=> (((double (double double) ...
练习 1.35
φ^2 = φ+1
==> φ = 1 + (1/φ)
(define tolerance 0.00001)
(define (fixed-point f first-guess)
(define (close-enough? v1 v2)
(< (abs (- v1 v2)) tolerance))
(define (try guess)
(let ((next (f guess)))
(if (close-enough? guess next)
next
...
练习 1.34
> (define (f g) (g 2))
> (f square)
4
> (f 2)
procedure application: expected procedure, given: 2; arguments were: 2
2为数字，不是一个已定义的过程的名称
SICP学习笔记 1.3.1 过程作为参数
- 博客分类：
- SICP
练习1.29
(define (sum term a next b)
(if (> a b)
0
(+ (term a) (sum term (next a) next b))))
(define (integral f a b dx)
(define (add-dx x) (+ x dx))
(* (sum f (+ a (/ dx 2.0)) add-dx b) dx))
(define (simpson f a b n)
(define (add-kh k) (* k (/ (- ...
SICP学习笔记 1.2.6 实例:素数检测
- 博客分类：
- SICP
练习1.22
;; runtime函数在stk、racket中都不支持，而GNU的Mit-Scheme十分难用，而且在Fedora16上编译安装后启动就报错，
;; 后来总算是在selinux的提示下让它能够正常启动了
;; grep scheme /var/log/audit/audit.log | audit2allow -M mypol
;; semodule -i mypol.pp
(define (start-prime-test n start-time)
(and (prime? n)
(report-prime n (- (runtime) ...
利益风暴 Margin Call (2011)
- 博客分类：
- 电影
利益风暴 Margin Call
(2011)
预告片
导演
: J·C·陈多尔
编剧
: J·C·陈多尔
主演
: 凯文·史派西
/ 保罗·贝坦尼
/ 史坦利·图齐
/ 扎克瑞·昆图
/ 黛米·摩尔
/ 西蒙·贝克
/ 杰瑞 ...
SICP学习笔记 1.2.5 最大公约数
- 博客分类：
- SICP
练习 1.20
(define (gcd a b)
(if (= b 0)
a
(gcd b (remainder a b))))
正则序
(gcd 206 40)
--> (if (= 40 0) 206 (gcd 40 (r 206 40)))
--> (gcd
40
(r 206 40))
--> (if (= (r 206 40) 0) 40 (gcd (r 206 40) (r 40 (r 206 40))))
--> (gcd
...
撞车 Crash (2004)
- 博客分类：
- 电影
撞车 Crash
(2004)
导演
: 保罗·哈吉斯
编剧
: 保罗·哈吉斯
/ Robert Moresco
主演
: 桑德拉·布洛克
/ 唐·钱德尔
/ 马特·狄龙
/ 布兰登·费舍
/ 泰伦斯·霍华德
/ 桑迪·牛顿
类型:
犯罪
/ 剧情
官方网站:
http://www.crashfilm.com/
制片国家/地区:
美国 / 德国语言:
英语 / 波斯语 / 西班牙语上映日期:
2005-05-06(美 ...
SICP学习笔记 1.2.4 求幂
- 博客分类：
- SICP
练习1.16
根据提示, a*b^n保持不变、使用a来保存结果，观察如下变换过程
求b^100，(b n a)
-->(b 100 a)
-->(b^2 50 a)
-->(b^4 25 a)
此时根据fast-expt的过程，应将25执行减1操作，如果保持a*b^n不 ...
SICP学习笔记 1.2.3 增长的阶
- 博客分类：
- SICP
练习1.14
(define (count-change amount)
(cc amount 5))
(define (cc amount kinds-of-coins)
(cond ((= amount 0) 1)
((or (< amount 0) (= kinds-of-coins 0)) 0)
(else (+ (cc amount (- kinds-of-coins 1))
(cc (- amount (first-denomination kinds-of-coins))
kinds-of-coins)))))
...
Hello！树先生 (2011)
- 博客分类：
- 电影
Hello！树先生
(2011)
预告片
导演
: 韩杰
编剧
: 韩杰
主演
: 王宝强
/ 谭卓
/ 何洁
类型:
剧情
/ 喜剧
制片国家/地区:
中国大陆语言:
汉语普通话上映日期:
2011-11-04(中国大陆)
片长:
93分钟
又名:
Mr. TreeIMDb链接:
tt2043878
看完这个片子，又TM给失眠了，这大概是近几年以来看过的国内最好的一部电影了吧。