home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum16.lzh / SOFTWARE / AWK / EXAMPLES / rnd < prev    next >
Text File  |  1991-05-06  |  384b  |  22 lines
  1. #
  2. # rnd    -      write some random numbers
  3. #
  4. #   note taht there is only a BEGIN in this program!
  5. #
  6. #   syntax: gawk -f rnd
  7. #
  8. # status: OK                bug:    
  9. #                   
  10.  
  11. function random(N) {
  12.     return int(N * rand() +1)
  13. }
  14. BEGIN {
  15.     for (i=1; i<=30; i++) {
  16.         for (j=random(10); j > 0; j--)
  17.             printf "%d ",random(100)
  18.     printf "\n"
  19.     }
  20.     exit
  21. }
  22.