Код Ревью
Сравни свои решения
(define (or-gate a1 a2 output)
(define b1 (make-wire))
(define b2 (make-wire))
(define c (make-wire))
(inverter a1 b1)
(inverter a2 b2)
(and-gate b1 b2 c)
(inverter c output)
'ok)
(define (or-gate a1 a2 output)
(define b1 (make-wire))
(define b2 (make-wire))
(define c (make-wire))
(inverter a1 b1)
(inverter a2 b2)
(and-gate b1 b2 c)
(inverter c output)
'ok)