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 (file)
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 (file)
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