* Copyright (c) 1988 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)random.c 5.3 (Berkeley) %G%";
* This source herein may be modified and/or distributed by anybody who
* so desires, with the following restrictions:
* 1.) No portion of this notice shall be removed.
* 2.) Credit shall not be taken for the creation of this source.
* 3.) This code is not to be traded, sold, or used for personal
3, 0x9a319039, 0x32d9c024, 0x9b663182, 0x5da1f342,
0xde3b81e0, 0xdf0a6fb5, 0xf103bc02, 0x48f340fb, 0x7449e56b,
0xbeb1dbb0, 0xab5c5918, 0x946554fd, 0x8c2e680f, 0xeb3d799f,
0xb11ee0b7, 0x2d436b86, 0xda672e2a, 0x1588ca88, 0xe369735d,
0x904f35f7, 0xd7158fd6, 0x6fa6f051, 0x616e6b96, 0xac94efdc,
0x36413f93, 0xc622c298, 0xf5a42ab8, 0x8a88d77b, 0xf5ad9d0e,
static long *fptr
= &rntb
[4];
static long *rptr
= &rntb
[1];
static long *state
= &rntb
[1];
static int rand_type
= 3;
static int rand_deg
= 31;
static long *end_ptr
= &rntb
[32];
for (i
= 1; i
< rand_deg
; i
++) {
state
[i
] = 1103515245 * state
[i
- 1] + 12345;
for (i
= 0; i
< 10 * rand_deg
; i
++) {
i
= state
[0] = (state
[0]*1103515245 + 12345) & 0x7fffffff;
i
= (*fptr
>> 1) & 0x7fffffff;
r
= (r
% ((y
- x
) + 1)) + x
;
return(get_rand(1, 100) <= percentage
);
return(((rrandom() & 01) ? 1 : 0));