5 lines
241 B
Text
5 lines
241 B
Text
d = new dict
|
|
for w = select[wordList[read[normalizeUnicode["https://www.gutenberg.org/files/135/135-0.txt", "UTF-8"]]], %r/[[:alnum:]]/ ]
|
|
d.increment[lc[w], 1]
|
|
|
|
println[join["\n", first[reverse[sort[array[d], {|a,b| a@1 <=> b@1}]], 10]]]
|