home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 7 / FreshFishVol7.bin / bbs / gnu / libg++-2.6-fsf.lha / libg++-2.6 / libio / dbz / random.c < prev    next >
Text File  |  1993-08-20  |  485b  |  32 lines
  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. }
  32.