sicp-ex-3.33

<< Previous exercise (3.32) | Index | Next exercise (3.34) >>

 (define (averager a b c) 
   (let ((u (make-connector)) 
         (v (make-connector))) 
     (adder a b u) 
     (multiplier c v u) 
     (constant 2 v) 
     'ok))