Initial revision
This commit is contained in:
parent
5f7d5e8d18
commit
b2cfc4e2e7
242 changed files with 18177 additions and 0 deletions
17
src/lib9/nrand.c
Normal file
17
src/lib9/nrand.c
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
#include <lib9.h>
|
||||
|
||||
#define MASK 0x7fffffffL
|
||||
|
||||
int
|
||||
nrand(int n)
|
||||
{
|
||||
long slop, v;
|
||||
|
||||
if(n < 0)
|
||||
return n;
|
||||
slop = MASK % n;
|
||||
do
|
||||
v = lrand();
|
||||
while(v <= slop);
|
||||
return v % n;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue