home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / TEXT / UTILITY / AWK320.ZIP / RANTEST.AWK < prev    next >
Encoding:
AWK Script  |  1990-02-07  |  287 b   |  15 lines
  1. # count the number of random numbers in ten bins
  2.  
  3. BEGIN {
  4.     srand()
  5.     for (i = 0; i < 20; i++) {
  6.         for (j = 0; j < 1000; j++)
  7.             x[int(10 * rand())]++
  8.         printf(".");
  9.     }
  10.     printf("\n");
  11.     for (i in x)
  12.         printf(" %s: %6d\n", i, x[i])
  13. }
  14.  
  15.