(define (split b1 b2) (lambda (painter n) (if (= n 0) painter (let ((smaller ((split b1 b2) painter (- n 1)))) (b1 painter (b2 smaller smaller))))))

(define (up-split painter n) (if (= n 0) painter (let ((smaller (up-split painter (- n 1)))) (below painter (beside smaller smaller)))))

(define (accumulate-n op init seqs) (if (null? (car seqs)) '() (cons (accumulate op init (map (lambda (s) (car s)) seqs)) (accumulate-n op init (map (lambda (s) (cdr s)) seqs)))))

(define (deep-reverse items) (define (iter dst src) (if (null? src) dst (let ((leaf (if (pair? (car src)) (deep-reverse (car src)) (car src)))) (iter (cons leaf dst) (cdr src))))) (iter (list) items))

(define (reverse l) (define (iter dst src) (if (null? src) dst (iter (cons (car src) dst) (cdr src)))) (iter (list) l))

(define (below painter1 painter2) (let ((split-point (make-vect 0.0 0.5))) (let ((paint-top (transform-painter painter1 split-point (make-vect 1.0 0.5) (make-vect 0.0 1.0))) (paint-bottom (transform-painter painter2 (make-vect 0.0 0.0) (ma…

GW恒例の雪の壁を見に行くツーリングに行く。半年ぶりにバイクに乗ったので、上里SAで萎えそうになる。上里SAの上りにスターバックスが出来ていた。上信越道に入って、軽井沢・碓氷で下りる。結構寒い。軽井沢を抜けて草津へ行き、R292で渋峠を越えていく。…

一般相対性理論 (ちくま学芸文庫)や力学・場の理論―ランダウ=リフシッツ物理学小教程 (ちくま学芸文庫)とか相対性理論〈上〉 (ちくま学芸文庫)を出すなんて、物理学徒には鼻血ブーものである。文芸も古典復興だが、科学書も同じような流れか？

光文社のカラマーゾフの兄弟を読書中。現在、カラマーゾフの兄弟2 (光文社古典新訳文庫)まで。

まずは、再帰的手続きで。 (define (cont-frac n d k) (define (iter i) (if (= i k) (/ (n i) (d i)) (/ (n i) (+ (d i) (iter (+ i 1)))))) (trace iter) (iter 1)) つぎに、反復的手続きで (define (cont-frac n d k) (define (iter result i) (if (= i 0…

今週も、武蔵野公園へ。今度は、嫁さんと。二人共、疲れていて昼からの出発。野川沿いの枝垂れ桜は、先週がピークであったが、まだ綺麗に咲き残っていた。武蔵野公園は、遅咲きの桜が満開。そこで、二人でサンドウィッチを食べる。天気は、予報が言っていた…

再び書いてみたら、以前書いたものと違っていた。 (define (fast-expt b n) (define (fast-expt-iter a b n) (cond ((= n 0) a) ((even? n) (fast-expt-iter a (square b) (/ n 2))) (else (fast-expt-iter (* a b) b (- n 1))))) (fast-expt-iter 1 b n)) (…

の変換なので、ベクトルで表すと、 から は,からベクトルで表すと、 から、対数的ステップ数の手続きは、 (define (fib n) (fib-iter 1 0 0 1 n)) (define (fib-iter a b p q count) (cond ((= count 0) b) ((even? count) (fib-iter a b (+ (* p p) (* q q)…

プログラミングGaucheを買ったのに触発されて、また始めることに。改めて1章から。結構、身についているじゃないの？

今日は、嫁さんは出勤。朝から、武蔵野公園へCONTAX G2を持って、写真を撮りにいく。染井吉野は盛りを過ぎたが、山桜、枝垂れ桜は今が見頃。野川沿いの枝垂れ桜がこんなに見事とは思わなかった。久しぶりに、Velviaを使ったので、きちんと撮れているかは、あ…

嫁さんの休みに合わせて、小金井公園へ花見にいく。天気はよいが、すごい風である。加賀鳶の純米大吟醸を持ち、途中の惣菜屋で卵巻とかいなり寿司とか買って持っていく。外は、花盛りで歩いていく途中の桜も綺麗に咲いている。小金井公園は平日にもかかわら…