home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / gnu / gawk-2.15.5-src.lha / gawk-2.15.5 / test / longwrds.awk < prev    next >
Text File  |  1993-10-20  |  455b  |  21 lines
  1. # From Gawk Manual modified by bug fix and removal of punctuation
  2. # Record every word which is used at least once
  3. {
  4.     for (i = 1; i <= NF; i++) {
  5.         tmp = tolower($i)
  6.         if (0 != (pos = match(tmp, /([a-z]|-)+/)))
  7.             used[substr(tmp, pos, RLENGTH)] = 1
  8.     }
  9. }
  10.  
  11. #Find a number of distinct words longer than 10 characters
  12. END {
  13.     num_long_words = 0
  14.     for (x in used) 
  15.         if (length(x) > 10) {
  16.             ++num_long_words
  17.             print x
  18.         }
  19.     print num_long_words, "long words"
  20. }
  21.