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

bro_chenzox

  
  
 (define (averager a b c) 
   (let ((u (make-connector)) (v (make-connector))) 
     (adder a b u) 
     (multiplier v c u) 
     (constant 2 v) 
     'ok)) 
  
 (define A (make-connector)) 
 (define B (make-connector)) 
 (define C (make-connector)) 
 (averager A B C) 
  
 (set-value! A 100 'user) 
 (set-value! B 0 'user) 
 ; 50