Re: [Chicken-users] srfi-27 - producing pseudo and truly random numbers over a uniform distribution

[Ivan Raikov]

(define (some-func st)
  (lambda (x) 
    (modulo (random-mtzig:random! st) (abs x))))


"Terrence Brannon" <address@hidden> writes:

>
> procedure: random-mtzig:random! :: STATE -> INTEGER
> Returns a random integer value between 0 and the largest
> machine-representable unsigned integer on the current platform.
>
> I am looking for a procedure with this signature:
>
> some-func :: STATE -> INTEGER -> INTEGER
>
> It takes a state and an integer n and returns an integer in the
> interval [0,n)
>