answers to 4.22 and 4.23
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Sat, 31 Dec 2011 06:48:05 +0000 (12:18 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Sat, 31 Dec 2011 06:48:05 +0000 (12:18 +0530)
src/sicp/ex4_22.rkt [new file with mode: 0644]
src/sicp/ex4_23.rkt [new file with mode: 0644]

diff --git a/src/sicp/ex4_22.rkt b/src/sicp/ex4_22.rkt
new file mode 100644 (file)
index 0000000..a70ac41
--- /dev/null
@@ -0,0 +1,3 @@
+#lang racket
+
+(analyze (let-combination exp))
diff --git a/src/sicp/ex4_23.rkt b/src/sicp/ex4_23.rkt
new file mode 100644 (file)
index 0000000..6913847
--- /dev/null
@@ -0,0 +1,15 @@
+#lang racket
+
+;; The text version creates something like this
+
+(lambda (env)
+  (lambda (env)
+    (lambda (env)
+      (lambda (env)
+        (proc1 env)
+        (proc2 env))
+      (proc3 env))
+    (proc4 env)))
+
+;; where as Alyssa's version creates
+(lambda (env) (execute-sequence '(proc1 proc2 proc3 ...) env))
\ No newline at end of file