14 lines
487 B
Text
14 lines
487 B
Text
Red [ "Word frequency - hinjolicious" ]
|
|
|
|
word-freq: function [file n][
|
|
word-chars: charset "abcdefghijklmnopqrstuvwxyz"
|
|
words: parse lowercase read file [collect [any [keep [some word-chars] | skip]]]
|
|
freq: make map! []
|
|
foreach w words [freq/:w: either none? freq/:w [1][freq/:w + 1]]
|
|
sorted: sort/reverse collect [foreach [w c] freq [keep/only reduce [c w]]]
|
|
]
|
|
|
|
sorted: word-freq %135-0.txt 10
|
|
|
|
print "Top 10 word frequency:"
|
|
repeat i 10 [w: sorted/:i print [pad w/2 10 w/1]]
|