SICPゼミ

練習問題3.31 実行環境 DrRacket > (define input-1 (make-wire )) (define input-2 (make-wire )) (define sum (make-wire )) (define carry (make-wire )) > (probe 'sum sum) > (probe 'carry carry) > (half-adder input-1 input-2 sum carry) 'ok > (propagate) 'done > (set-signal! input-1 1) 'done > (propagate)…