(define (c+ x y)
(let ((z (make-connector)))
(adder x y z)
z))
(define (c* x y)
(let ((z (make-connector)))
(multiplier x y z))
z)
(define (c/ x y)
(let ((z (make-connector)))
(multiplier x z y))
z)
(define (cv n)
(let ((a (make-connector)))
(constant n a)
a))
피드 구독하기:
댓글 (Atom)
댓글 없음:
댓글 쓰기