solution to 3.6

diff --git a/src/sicp/ex3_6.rkt b/src/sicp/ex3_6.rkt
new file mode 100644 (file)
index 0000000..fcfa106
--- /dev/null
+++ b/src/sicp/ex3_6.rkt
@@ -0,0 +1,16 @@
+#lang racket
+
+(define rand
+  (let ((x random-init))
+    (define (dispatch type)
+      (cond
+        ((eq? type 'generate)
+         (begin
+           (set! x (rand-update x))
+           x))
+        ((eq? type 'reset)
+         (lambda (new-val)
+           (set! x new-val)))))
+    dispatch))
+
+