Permalink
Browse files

Done 3.37

  • Loading branch information...
1 parent 99d673d commit 1995fb66b9764b8b9f1cdc584b5cb32dd403813b @skilldrick committed Jun 19, 2011
Showing with 19 additions and 0 deletions.
  1. +19 −0 ex3.37.scm
View
@@ -0,0 +1,19 @@
+(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 z y x)
+ z))
+
+(define (cv x)
+ (let ((z (make-connector)))
+ (constant x z)
+ z))

0 comments on commit 1995fb6

Please sign in to comment.