Return to random.c CVS log

Up to [Apple XNU] / GNUtools / libg++ / libio / dbz

Annotation of GNUtools/libg++/libio/dbz/random.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * random-number generator for testing
                      3:  */
                      4: static unsigned long next = 1;
                      5: 
                      6: /*
                      7:  - range - generate a random number within an inclusive range
                      8:  *
                      9:  * Algorithm from ANSI C standard.  Limitation:  max-min <= 32767.
                     10:  */
                     11: int
                     12: range(min, max)
                     13: int min;
                     14: int max;
                     15: {
                     16:        register int temp;
                     17: 
                     18:        next = next * 1103515245 + 12345;
                     19:        temp = (int)((next/65536)%32768);
                     20:        return(temp%(max - min + 1) + min);
                     21: }
                     22: 
                     23: /*
                     24:  - seed - seed random number generator
                     25:  */
                     26: void
                     27: seed(n)
                     28: long n;
                     29: {
                     30:        next = (unsigned long)n;
                     31: }

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