22 lines
519 B
Text
22 lines
519 B
Text
$ include "seed7_05.s7i";
|
|
|
|
const type: charHash is hash [char] integer;
|
|
|
|
const proc: main is func
|
|
local
|
|
var charHash: numberOfChars is charHash.EMPTY_HASH;
|
|
var char: ch is ' ';
|
|
begin
|
|
ch := getc(IN);
|
|
while ch <> EOF do
|
|
if ch in numberOfChars then
|
|
incr(numberOfChars[ch]);
|
|
else
|
|
numberOfChars @:= [ch] 1;
|
|
end if;
|
|
ch := getc(IN);
|
|
end while;
|
|
for ch range sort(keys(numberOfChars)) do
|
|
writeln(ch <& " " <& numberOfChars[ch]);
|
|
end for;
|
|
end func;
|