2013-05-17から1日間の記事一覧

問題1.8 を写経してみる

(define (square x) (* x x)) (define (cubic-improve x y) (/ (+ (/ x (square y)) (* 2.0 y)) 3.0)) (define (cubic-iter x y) (define improved (cubic-improve x y)) (if (cubic-good-enough? improved y) improved (cubic-iter x improved))) (define (…

問題1.7 をやって。。 ではなくて写してみる;;

(define (square x) (* x x)) ;(square 9) (define (sqrt-iter guess x) (if (good-enough? (improve guess x) guess) guess (sqrt-iter (improve guess x) x))) (define (improve guess x) (average guess (/ x guess))) (define (average x y) (/ (+ x y) …

問題1.6 をやってみる

だんだん辛くなってきました。 ググりながらやってます (define (square x) (* x x)) (define (sum-of-squares x y) (+ (square x) (square y))) (define (new-if predicate then-clause else-clause) (cond (predicate then-clause) (else else-clause))) (…

問題1.5 をやってみる

(define (p) (p)) (define (test x y) (if (= x 0) 0 y)) (test 0 (p)) ;無限ループに陥る。 ;正規順序では 完全に展開し簡約するので、評価しなくてもよい P で無限ループすることはない ;作用的順序では引数をすべて評価するため、P の評価で無限ループする