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

5 lines
134 B
Text

txt$ = LOAD$("bible.txt")
FOR x = 97 TO 122
PRINT CHR$(x-32), " ", CHR$(x), " : ", COUNT(txt$, x-32), " - ", COUNT(txt$, x)
NEXT