Return to rand.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / c

researchv9-SUN3(old)

static	long	randx = 1;

srand(x)
unsigned x;
{
	randx = x;
}

rand()
{
	return(((randx = randx*1103515245 + 12345)>>16) & 077777);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.