04 2013 档案

04.28 关机.

摘要：> uptime 21:55:40 up 72 days, 22:58, 6 users, load average: 1.33, 1.25, 1.18 阅读全文

posted @ 2013-04-28 22:00 ASOCS 阅读(74) 评论(0) 推荐(0)

sicp 1.41,42,43

摘要：;; p1.41(define double (lambda (f) (lambda (x) (f (f x)))))(define inc (lambda (x) (+ x 1)));; p 1.42(define compose (lambda (f g) (lambda (x) (f (g x)))))(define square (lambda (x) (* x x)));; p 1.43(define repeated (lambda (f n) (if (< n 1) (lambda (x) x) ... 阅读全文

posted @ 2013-04-25 13:54 ASOCS 阅读(174) 评论(0) 推荐(0)

sicp 1.37 1.38

摘要：;; p1.37(define cont-frac (lambda (fn fd k) (define frac-inside (lambda (x) (if (= x k) (/ (fn x) (fd x)) (/ (fn x) (+ (fd x) (frac-inside (+ x 1))))))) (frac-inside 1)));; b(define cont-frac-i (lambda (fn fd k) (define frac-i (lambda (init k) ... 阅读全文

posted @ 2013-04-21 16:25 ASOCS 阅读(132) 评论(0) 推荐(0)

sicp 1.35 1.36

摘要：(define fixed-point (lambda (f first-guess) (define tolerance 0.00001) (define close-enough? (lambda (v1 v2) (< (abs (- v1 v2)) tolerance))) (define try (lambda (guess) (let ([next (f guess)]) (if (close-enough? guess next) next (t... 阅读全文

posted @ 2013-04-21 14:22 ASOCS 阅读(191) 评论(0) 推荐(0)