13 lines
156 B
Text
13 lines
156 B
Text
file f;
|
|
index x;
|
|
integer c, n;
|
|
|
|
f.affix("unixdict.txt");
|
|
|
|
while ((c = f.pick) ^ -1) {
|
|
x[c] += 1;
|
|
}
|
|
|
|
for (c, n in x) {
|
|
o_form("%c: /w5/\n", c, n);
|
|
}
|