procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Frandom): Use just the low 30 bits of random's value.

Browse source
This commit is contained in:
Richard M. Stallman 1994-07-26 19:25:42 +00:00
parent b4300a1a6c
commit 26d270ab48
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/fns.c
View file

@ -71,9 +71,9 @@ With argument t, set the random number seed from the current time and pid.")
it's possible to get a quotient larger than limit; discarding
these values eliminates the bias that would otherwise appear
when using a large limit. */
denominator = (unsigned long)0x80000000 / XFASTINT (limit);
denominator = (unsigned long)0xc0000000 / XFASTINT (limit);
do
val = (random () & 0x7fffffff) / denominator;
val = (random () & 0x3fffffff) / denominator;
while (val >= limit);
}
else