added some test results

diff --git a/src/sicp/ex3_25.rkt b/src/sicp/ex3_25.rkt
index 2481d26ab68a032068fcd98ff9ddc1a343384085..bd620885997099eddb58732d8f500f5d1ef3fcc4 100644 (file)
--- 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)))
+> 
+|#