diff options
Diffstat (limited to 'contrib/awk/awklib/eg/prog/wordfreq.awk')
-rw-r--r-- | contrib/awk/awklib/eg/prog/wordfreq.awk | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/contrib/awk/awklib/eg/prog/wordfreq.awk b/contrib/awk/awklib/eg/prog/wordfreq.awk deleted file mode 100644 index 62db5cf..0000000 --- a/contrib/awk/awklib/eg/prog/wordfreq.awk +++ /dev/null @@ -1,20 +0,0 @@ -# wordfreq.awk --- print list of word frequencies - -{ - $0 = tolower($0) # remove case distinctions - # remove punctuation - gsub(/[^[:alnum:]_[:blank:]]/, "", $0) - for (i = 1; i <= NF; i++) - freq[$i]++ -} - -END { - for (word in freq) - printf "%s\t%d\n", word, freq[word] -} -END { - sort = "sort +1 -nr" - for (word in freq) - printf "%s\t%d\n", word, freq[word] | sort - close(sort) -} |