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