From 33faa357d0c833542640f75cc3087dcc1d0609e9 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Wed, 6 Jul 2011 08:06:19 +0530
Subject: [PATCH] solutions to 3.53 and 3.54

---
 src/sicp/ex3_53.rkt | 10 ++++++++++
 src/sicp/ex3_54.rkt |  9 +++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 src/sicp/ex3_53.rkt
 create mode 100644 src/sicp/ex3_54.rkt

diff --git a/src/sicp/ex3_53.rkt b/src/sicp/ex3_53.rkt
new file mode 100644
index 0000000..1bfa479
--- /dev/null
+++ b/src/sicp/ex3_53.rkt
@@ -0,0 +1,10 @@
+#lang racket
+
+#|
+
+  1 2 4 8  16 32
+  1 2 4 8  16 32
+
+1 2 4 8 16 32 64 ....
+
+|#
\ No newline at end of file
diff --git a/src/sicp/ex3_54.rkt b/src/sicp/ex3_54.rkt
new file mode 100644
index 0000000..558e936
--- /dev/null
+++ b/src/sicp/ex3_54.rkt
@@ -0,0 +1,9 @@
+#lang planet neil/sicp
+
+(define (mul-streams s1 s2)
+  (stream-map * s1 s2))
+
+(define factorial (cons-stream 1 (mul-streams factorial (integers-starting-from 2))))
+
+
+
-- 
2.37.2