3.29の確認 ;;通常のor-gate gosh> (load "./section3-3-4.scm") sum 0 New-value = 0 carry 0 New-value = 0 sum 8 New-value = 1 carry 11 New-value = 1 sum 16 New-value = 0 #t ;;exercize3.29のor gate gosh> (load "./section3-3-4.scm") sum 0 New-v…

;;excercise3.28 (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…