From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Mon, 21 Feb 2011 03:12:20 +0000 (+0530)
Subject: added some test results
X-Git-Url: https://git.rkrishnan.org/...?a=commitdiff_plain;h=69031bf02f738e652ec2676de57266bb645191b3;p=sicp.git

added some test results
---

diff --git a/src/sicp/ex3_25.rkt b/src/sicp/ex3_25.rkt
index 2481d26..bd62088 100644
--- a/src/sicp/ex3_25.rkt
+++ b/src/sicp/ex3_25.rkt
@@ -81,3 +81,26 @@
 97
 > 
 |#
+
+#|
+> (define t (list '*table*
+                  (list 'math
+                        (cons '+ 43)
+                        (cons '- 45)
+                        (cons '* 42))
+                  (list 'letters
+                        (cons 'a 97)
+                        (cons 'b 98))))
+> (display t)
+(*table* (math (+ . 43) (- . 45) (* . 42)) (letters (a . 97) (b . 98)))
+> (insert-in! '(earth asia india) 'delhi t)
+> (display t)
+(*table* (earth (asia (india . delhi))) (math (+ . 43) (- . 45) (* . 42)) (letters (a . 97) (b . 98)))
+> (insert-in! '(math +) 83 t)
+> (display t)
+(*table* (earth (asia (india . delhi))) (math (+ . 83) (- . 45) (* . 42)) (letters (a . 97) (b . 98)))
+> (insert-in! '(math /) 99 t)
+> (display t)
+(*table* (earth (asia (india . delhi))) (math (+ . 83) (/ . 99) (- . 45) (* . 42)) (letters (a . 97) (b . 98)))
+> 
+|#