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.45.2