問題3.29

;;意外と思いつかなかった。20分も悩んだ。
(define (or-gate a1 a2 output)
  (let ((a3 (make-wire))
        (a4 (make-wire))
        (o1 (make-wire)))
    (inverter a1 a3)
    (inverter a2 a4)
    (and-gate a3 a4 o1)
    (inverter o1 output)
    'ok))

;;遅延時間は
(+ (* inverter-delay 2) and-gate-delay)
;;になる。