]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_6.rkt
Solution to 4.44. A bit too verbose. Can be improved by better
[sicp.git] / src / sicp / ex3_6.rkt
1 #lang racket
2
3 (define rand
4   (let ((x random-init))
5     (define (dispatch type)
6       (cond
7         ((eq? type 'generate)
8          (begin
9            (set! x (rand-update x))
10            x))
11         ((eq? type 'reset)
12          (lambda (new-val)
13            (set! x new-val)))))
14     dispatch))
15
16