RosettaCodeData/Task/Letter-frequency/BaCon/letter-frequency.bacon

6 lines
134 B
Text
Raw Permalink Normal View History

2018-06-22 20:57:24 +00:00
txt$ = LOAD$("bible.txt")
FOR x = 97 TO 122
PRINT CHR$(x-32), " ", CHR$(x), " : ", COUNT(txt$, x-32), " - ", COUNT(txt$, x)
NEXT