irbit1.c

来自「可以用于科学计算的库」· C语言 代码 · 共 13 行

int irbit1(unsigned long *iseed)
{
	unsigned long newbit;

	newbit =  (*iseed >> 17) & 1
		^ (*iseed >> 4) & 1
		^ (*iseed >> 1) & 1
		^ (*iseed & 1);
	*iseed=(*iseed << 1) | newbit;
	return (int) newbit;
}