added some test results
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Mon, 21 Feb 2011 03:12:20 +0000 (08:42 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Mon, 21 Feb 2011 03:12:20 +0000 (08:42 +0530)
src/sicp/ex3_25.rkt

index 2481d26ab68a032068fcd98ff9ddc1a343384085..bd620885997099eddb58732d8f500f5d1ef3fcc4 100644 (file)
 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)))
+> 
+|#