Data commit

Task/Letter-frequency/Seed7/letter-frequency.seed7

@@ -0,0 +1,22 @@
+$ 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;