home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / cmplangm / 1989_6 / awk / hgram.awk < prev    next >
Text File  |  1988-02-25  |  420b  |  18 lines
  1. # histogram
  2. #   input:  numbers between 0 and 100
  3. #   output: histogram fo the deciles
  4.  
  5.     { x[int($1/10)]++ }
  6.  
  7. END { for (i = 0; i < 10; i++)
  8.           printf(" %2d - %2d: %3d %s\n",
  9.               10*i, 10*i+9, x[i], rep(x[i], "*"))
  10.       printf("100:      %3d %s\n", x[10], rep(x[10], "*"))
  11.     }
  12.  
  13. function rep(n, s,  t) {  # return string of n s's
  14.     while (n-- > 0)
  15.         t = t s
  16.     return t
  17. }
  18.