From a881e45eb59ac5fecf8ad1c51847f75506464494 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Sat, 31 Dec 2011 12:18:05 +0530 Subject: [PATCH] answers to 4.22 and 4.23 --- src/sicp/ex4_22.rkt | 3 +++ src/sicp/ex4_23.rkt | 15 +++++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 src/sicp/ex4_22.rkt create mode 100644 src/sicp/ex4_23.rkt 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 -- 2.45.2