15 lines
299 B
ObjectPascal
15 lines
299 B
ObjectPascal
program letterFrequency(input, output);
|
||
var
|
||
chart: array[char] of 0..maxInt value [otherwise 0];
|
||
c: char;
|
||
begin
|
||
{ parameter-less EOF checks for EOF(input) }
|
||
while not EOF do
|
||
begin
|
||
read(c);
|
||
chart[c] := chart[c] + 1
|
||
end;
|
||
|
||
{ now, chart[someLetter] gives you the letter’s frequency }
|
||
end.
|