SICPの3.3.4でディジタル回路のシュミレータを作るのだが、そういえばどうせなのでXORも作ってみようとふと思い、この節の復習も兼ねて作ってみた。といっても簡単だけど。 (define (xor-gate a1 a2 output) (define (xor-action-procedure) (let [(new-valu…

最近教授の音楽にはまっている。新しいアルバム「out of noise」がきのう届き、プレーヤー以外を消して(電気はついてます)、窓を閉め、目を閉じて聞いてみた。心地よかった。 out of noise(数量限定生産)アーティスト: 坂本龍一出版社/メーカー: commmons発…

演習問題3.81, 3.82はパスする． 例題が動くよう，random-numberを，簡単だけど，作ってみた． ;;section3.5.5 (load "./stream.scm") (use srfi-27) (define (average-int a b) (quotient (+ a b) 2)) (define random-numbers (cons-stream 1 (stream-map (…

脳死を一般的な人の死と定義し、本人が生前に拒否していなければ、年齢に関係なく家族の同意で臓器摘出が可能。 臓器移植法改正案：衆院可決 １５歳未満も臓器提供 脳死一律「人の死」に つまり大切な人が，まだ温かい体で，目の前でただ眠っているだけだけ…

3.77にちょっとはまった． ;;exercise3.77 (define (solve f y0 dt) (define dy (stream-map f y)) (define y (integral (delay dy) y0 dt)) y) (define (integral delayed-integrand initilal-value dt) (cons-stream initilal-value (let ((integrand (for…

;;exercise3.73 (define (rc-circuit r c dt) (lambda (i v0) (add-stream (scale-stream i r) (integral (scale-stream i (/ 1.0 c)) v0 dt)))) ;;exercise3.74 ;;例題を参照した ;;sinを使ってsense-dataを生成してみる (define sense-data (stream-map (l…