RosettaCodeData/Task/Letter-frequency/Frink/letter-frequency.frink
2023-07-01 13:44:08 -04:00

1 line
175 B
Text

print[formatTable[countToArray[select[graphemeList[lc[normalizeUnicode[read["https://www.gutenberg.org/files/135/135-0.txt", "UTF-8"],"NFC"]]], %r/[[:alpha:]]/ ]] , "right"]]