2008. 8. 20.

연습문제 3.33

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

댓글 없음:

댓글 쓰기