Word frequency count FIXED by nn

$0=tolower($0){for(gsub(/[^a-z ]/,n=_);$++n;v[i+1]=$n)for(i=++m;--i&&$n>v[i];)v[i+1]=v[i]}END{for(;++c*m;w=v[m])if(w&&w!=v[--m]){print--c,w
c=1}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top