21 lines
293 B
Text
21 lines
293 B
Text
integer p, z;
|
|
record r;
|
|
file f;
|
|
text s, t;
|
|
|
|
f.affix("unixdict.txt");
|
|
|
|
p = 0;
|
|
|
|
while (f.line(s) != -1) {
|
|
if (r_o_integer(z, r, t = b_reverse(s))) {
|
|
p += 1;
|
|
if (p <= 5) {
|
|
o_(s, " ", t, "\n");
|
|
}
|
|
}
|
|
|
|
r[s] = 0;
|
|
}
|
|
|
|
o_form("Semordnilap pairs: ~\n", p);
|