15 lines
203 B
Text
15 lines
203 B
Text
file f;
|
|
index x;
|
|
integer c;
|
|
|
|
f.affix("unixdict.txt");
|
|
|
|
while ((c = f.pick) ^ -1) {
|
|
x[c] += 1;
|
|
}
|
|
|
|
c = 'A';
|
|
while (c <= 'Z') {
|
|
o_form("%c: /w5/\n", c, x[c] += x[c + 'a' - 'A'] += 0);
|
|
c += 1;
|
|
}
|