From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Sat, 31 Dec 2011 06:48:05 +0000 (+0530)
Subject: answers to 4.22 and 4.23
X-Git-Url: https://git.rkrishnan.org/%5B/%5D%20/file/URI:LIT:krugkidfnzsc4/@@named=/module-simplejson._speedups.html?a=commitdiff_plain;h=a881e45eb59ac5fecf8ad1c51847f75506464494;p=sicp.git

answers to 4.22 and 4.23
---

diff --git a/src/sicp/ex4_22.rkt b/src/sicp/ex4_22.rkt
new file mode 100644
index 0000000..a70ac41
--- /dev/null
+++ b/src/sicp/ex4_22.rkt
@@ -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
index 0000000..6913847
--- /dev/null
+++ b/src/sicp/ex4_23.rkt
@@ -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