19 lines
353 B
Scheme
19 lines
353 B
Scheme
|
(library
|
||
|
|
(generators)
|
||
|
|
|
||
|
|
(export make-const-generator
|
||
|
|
make-uniform-generator)
|
||
|
|
|
||
|
|
(import (rnrs)
|
||
|
|
(srfi s27 random-bits))
|
||
|
|
|
||
|
|
(define (make-const-generator n)
|
||
|
|
(lambda () n))
|
||
|
|
|
||
|
|
(define (make-uniform-generator low hi)
|
||
|
|
(assert (<= low hi))
|
||
|
|
|
||
|
|
(let ((range (- hi low)))
|
||
|
|
(lambda ()
|
||
|
|
(+ low (random-integer range))))))
|