git: 9front

ref: a0ba4c1f03a3f99fb17a9edf9b4448db49bb6c46
dir: /sys/src/ape/lib/v/nrand.c/

View raw version 
#include <stdlib.h>

#define	MASK	0x7FFFFFFFL
#define	FRACT	(1.0 / (MASK + 1.0))

extern long lrand(void);

double
frand(void)
{

	return lrand() * FRACT;
}

nrand(int n)
{
	long slop, v;

	slop = MASK % n;
	do
		v = lrand();
	while(v <= slop);
	return v % n;
}