From e7341513114026efc422f2be1e78136444964dee Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 17 May 2016 16:30:24 -0700 Subject: [PATCH] fanout --- beautiful-racket/br/demo/hdl/Fanout.hdl.rkt | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/beautiful-racket/br/demo/hdl/Fanout.hdl.rkt b/beautiful-racket/br/demo/hdl/Fanout.hdl.rkt index e29ea96..0bb6318 100644 --- 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))