September 2017 Update

Task/Semordnilap/Aime/semordnilap.aime

@@ -1,56 +1,28 @@
-text
-reverse(text s)
-{
-    data b;
-    integer i;
+integer p;
+record r;
+file f;
+text s;
 
-    i = length(s);
-    while (i) {
-        i -= 1;
-        b_insert(b, -1, s[i]);
-    }
+f_affix(f, "unixdict.txt");
 
-    return b_string(b);
+while (f_line(f, s) != -1) {
+    r[s] = 0;
 }
 
-integer
-main(void)
-{
-    integer c, p;
-    record r;
-    file f;
-    text s;
+p = 0;
 
-    f_affix(f, "unixdict.txt");
+for (s in r) {
+    text t;
 
-    while (f_line(f, s) != -1) {
-        r_p_integer(r, s, 0);
-    }
-
-    c = 0;
-    p = 0;
-
-    if (r_first(r, s)) {
-        do {
-            text t;
-
-            t = reverse(s);
-            if (compare(s, t) > 0) {
-                if (r_key(r, t)) {
-                    p += 1;
-                    if (c < 5) {
-                        c += 1;
-                        o_text(s);
-                        o_byte(' ');
-                        o_text(t);
-                        o_byte('\n');
-                    }
-                }
+    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 (r_greater(r, s, s));
+        }
     }
-
-    o_form("Semordnilap pairs: ~\n", p);
-
-    return 0;
 }
+
+o_form("Semordnilap pairs: ~\n", p);