7 lines
257 B
Text
7 lines
257 B
Text
∇ stats (file) {
|
|
content ← "[\\h,.\"'\n-]+" regex:split unicode:toLower io:readFile file
|
|
sorted ← (⍋⊇⊢) content
|
|
selection ← 1,2≢/sorted
|
|
words ← selection / sorted
|
|
{⍵[10↑⍒⍵[;1];]} words ,[0.5] ≢¨ sorted ⊂⍨ +\selection
|
|
}
|