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