Anonymous user
Letter frequency: Difference between revisions
→{{header|Forth}}
Line 1,599:
counts 26 cells erase
slurp-file bounds do
i c@ 32 or
dup 0 26 within if
cells counts +
Line 1,606:
loop
26 0 do
cr [char] ' emit
counts i cells + @ .
loop ;
|