minimal plan9port to cross-build Jehanne
This commit is contained in:
17
lib/lib9/frand.c
Normal file
17
lib/lib9/frand.c
Normal file
@@ -0,0 +1,17 @@
|
||||
#include <u.h>
|
||||
#include <libc.h>
|
||||
|
||||
#define MASK 0x7fffffffL
|
||||
#define NORM (1.0/(1.0+MASK))
|
||||
|
||||
double
|
||||
p9frand(void)
|
||||
{
|
||||
double x;
|
||||
|
||||
do {
|
||||
x = lrand() * NORM;
|
||||
x = (x + lrand()) * NORM;
|
||||
} while(x >= 1);
|
||||
return x;
|
||||
}
|
Reference in New Issue
Block a user