Word frequency count FIXED by murky-satyr

(B:=(stdin contents asLowercase select:[:c|c<$!|($`<c&(c<${))])subStrings asBag)asSet asSortedCollection do:[:w|stdout<<(B occurrencesOf: w)<<$ <<w;nl]!

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

download

return top