8 lines
274 B
Text
8 lines
274 B
Text
procedure main(A)
|
|
WC := &letters++&digits
|
|
n := \A[1] | 10
|
|
wt := table(0)
|
|
write("The ",n," most common words are:")
|
|
every !&input ? while tab(upto(WC)) do wt[map(tab(many(WC)))] +:= 1
|
|
every p := !reverse(sort(wt,2))\n do write(right(p[2],8),": ",p[1])
|
|
end
|