or-gate を,and-gate と inverter で構成しろという問題.
こんな感じかと思われ.
(define (or-gate a1 a2 output) (let ((x (make-wire)) (y (make-wire)) (z (make-wire))) (inverter a1 x) (inverter a2 y) (and-gate x y z) (inverter z output)) 'ok)
遅延の方は,inverter 2 つ分と and-gate 1 つ分ということで,2*inverter-delay + and-gate-delay になるかなー.