読者です 読者をやめる 読者になる 読者になる

yy_taroのとりとめのない落書き

メインフレームの導入・設計・構築ができるぐらいの知識があったりする。

SICP始めました 74

SICP七十四日目

昨日から引き続きと「基本的な機能箱」を読んだ。

今のところ代入という概念を使ってディジタル回路シミュレーターを作ろうという話ですね。

問題3.28

 特に迷うことなくand-gateを焼き直すだけ

(define (or-gate a1 a2 output)
  (define (or-action-procedure)
    (let ((new-value (logical-or (get-signal a1) (get-signal a2))))
      (after-delay or-gate-delay
        (lambda ()
          (set-signal! output new-value)))))
  (add-action! a1 or-action-procedure)
  (add-action! a2 or-action-procedure)
  'ok)

今日はここまで

計算機プログラムの構造と解釈[第2版]

計算機プログラムの構造と解釈[第2版]