home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / eurasia.awk < prev    next >
Encoding:
Text File  |  1990-02-08  |  344 b   |  12 lines
  1. # accumulate the populations of Asia and Europe
  2. # print these two totals at the end
  3. # AKW p51
  4.  
  5. /Asia/   { pop["Asia"] += $3 }
  6. /Europe/ { pop["Europe"] += $3 }
  7. END      { print "Asian population is",
  8.                pop["Asia"], "million."
  9.            print "European population is",
  10.                pop["Europe"], "million."
  11.          }
  12.