irbit2.c

来自「Numerical Recipes Software 提供的算法子程序集」· C语言 代码 · 共 24 行

#define IB1 1
#define IB2 2
#define IB5 16
#define IB18 131072
#define MASK (IB1+IB2+IB5)

int irbit2(iseed)
unsigned long *iseed;
{
	if (*iseed & IB18) {
		*iseed=((*iseed ^ MASK) << 1) | IB1;
		return 1;
	} else {
		*iseed <<= 1;
		return 0;
	}
}
#undef MASK
#undef IB18
#undef IB5
#undef IB2
#undef IB1
/* (C) Copr. 1986-92 Numerical Recipes Software . */