RosettaCodeData/Task/Word-frequency/Frink/word-frequency-2.frink
2023-07-01 13:44:08 -04:00

1 line
168 B
Text

formatTable[first[countToArray[select[wordList[lc[normalizeUnicode[read["https://www.gutenberg.org/files/135/135-0.txt", "UTF-8"]]]], %r/[[:alnum:]]/ ]], 10], "right"]