RosettaCodeData/Task/Letter-frequency/BaCon/letter-frequency.bacon
2018-06-22 20:57:24 +00: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