ストレートにいけばいいすね。and-gateのパクリです。 andをorに変換しただけみたいな。 (define (or-gate a1 a2 output) (define (or-action-procedure) (let ((new-value (logical-or (get-signal a1) (get-signal a2)))) (after-deley or-gate-delay (lam…

アレだ、ド・モルガンの法則だ。 andとnotでどうやってorを表すか考えればいい。 (define (or-gate a1 a2 output) (let ((o1 (make-wire)) (o2 (make-wire)) (o3 (make-wire))) (inverter a1 o1) (inverter a2 o2) (and-gate o1 o2 o3) (inverter o3 output)…

全加算機を何個もつなげる感じの問題。 シンプルに考えればいいかなと思って以下。 (define (ripple-carry-adder A B S C) (if (null? S) 'ok (let ((c-out (make-wire))) (full-addr (car A) (car B) C (car S) c-out) (ripple-carry-adder (cdr A) (cdr B)…