home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / TEXT / UTILITY / AWK320.ZIP / SEQ.AWK < prev    next >
Encoding:
AWK Script  |  1990-02-07  |  456 b   |  18 lines
  1. # seq - print sequences of integers
  2. #   input:  arguments q, p q, or p q r;  q >= p; r > 0
  3. #   output: integers 1 to q, p to q, or p to q in steps of r
  4.  
  5. # AKW p64
  6.  
  7. BEGIN {
  8.     if (ARGC == 2)
  9.         for (i = 1; i <= ARGV[1]; i++)
  10.             print i
  11.     else if (ARGC == 3)
  12.         for (i = ARGV[1]; i <= ARGV[2]; i++)
  13.             print i
  14.     else if (ARGC == 4)
  15.         for (i = ARGV[1]; i <= ARGV[2]; i += ARGV[3])
  16.             print i
  17. }
  18.