fanout

beautiful-racket/br/demo/hdl/Fanout.hdl.rkt

@@ -1,11 +1,12 @@
-#lang br
+#lang br/demo/hdl
-(provide (prefix-out Fanout- (all-defined-out)))
-(require "helper.rkt")
-(define in (make-input))
 
+CHIP Fanout {
+         IN in;
+            OUT outa, outb;
+            
+            PARTS:
+            And(a=in, b=in, out=outa);
+            And(a=in, b=in, out=outb);
+            
+            }
 
-(define (outa)
-  (in))
-
-(define (outb)
-  (in))