;; Die ersten drei Zeilen dieser Datei wurden von DrRacket eingefügt. Sie enthalten Metadaten ;; über die Sprachebene dieser Datei in einer Form, die DrRacket verarbeiten kann. #reader(lib "DMdA-assignments-reader.ss" "deinprogramm")((modname halfadder) (read-case-sensitive #f) (teachpacks ()) (deinprogramm-settings #(#f write repeating-decimal #t #t none explicit #f ()))) ; Halbaddierer: (: half-adder (wire wire wire wire -> unspecific)) (define half-adder (lambda (a b s c) (letrec ((d (make-wire)) (e (make-wire))) (begin (or-gate a b d) (and-gate a b c) (inverter c e) (and-gate d e s) "ok"))))