rand-update.rkt

;;; Wikipediaの作例によるrand-update
(define (rand-update x)
  (let ((a 3) (b 5) (m 13))
    (modulo (+ (* a x) b) m)))

;;; 乱数の初期値も Wikipedia に倣って8とする
(define random-init 8)

;;; SICP の rand
(define rand
  (let ((x random-init))
    (lambda ()
      (set! x (rand-update x))
      x)))