aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

25
Task/Semordnilap/Aime/semordnilap.aime
View file

@ -1,28 +1,21 @@
integer p;
record r;
file f;
text s;
text s, t;
f_affix(f, "unixdict.txt");
while (f_line(f, s) != -1) {
r[s] = 0;
}
f.affix("unixdict.txt");
p = 0;
for (s in r) {
text t;
t = b_string(b_reverse(b_draft(s)));
if (s > t) {
if (r_key(r, t)) {
p += 1;
if (p <= 5) {
o_(s, " ", t, "\n");
}
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);