fanout

8 years ago · e734151311
parent 1f805852f0
commit e734151311
1 changed files with 10 additions and 9 deletions
--- a/beautiful-racket/br/demo/hdl/Fanout.hdl.rkt
+++ b/beautiful-racket/br/demo/hdl/Fanout.hdl.rkt
@ -1,11 +1,12 @@
-#lang br
-(provide (prefix-out Fanout- (all-defined-out)))
-(require "helper.rkt")
-(define in (make-input))
+#lang br/demo/hdl

+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))