24 lines · 615 B · Text
RawDownload
= rand: pseudo random number generation     include "rand.m";    rand = load Rand Rand->PATH;     init:    fn(seed: int);    rand:    fn(modulus: int): int;    bigrand: fn(modulus: big): big; Init  initialises  the  pseudo-random  number  generator withseed; subsequent calls to rand and bigrand return  a  pseudo-random  sequence  of integers or bigs respectively, between 0and modulus-1.  Modulus should be a non-negative integer; forbigrand, it should be less than 2^53. == source/appl/lib/rand.b == see ALSOsecurity-random(2) == bugsThe quality of the algorithm currently used is questionable.