[go: up one dir, main page]

File: random.c

package info (click to toggle)
suck 4.3.5-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,196 kB
  • sloc: ansic: 12,086; perl: 528; sh: 363; makefile: 345; java: 144
file content (31 lines) | stat: -rw-r--r-- 485 bytes parent folder | download | duplicates (18)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
/*
 * random-number generator for testing
 */
static unsigned long next = 1;

/*
 - range - generate a random number within an inclusive range
 *
 * Algorithm from ANSI C standard.  Limitation:  max-min <= 32767.
 */
int
range(min, max)
int min;
int max;
{
	register int temp;

	next = next * 1103515245 + 12345;
	temp = (int)((next/65536)%32768);
	return(temp%(max - min + 1) + min);
}

/*
 - seed - seed random number generator
 */
void
seed(n)
long n;
{
	next = (unsigned long)n;
}