June 2018 Update

Task/Ordered-words/Aime/ordered-words.aime

@@ -1,57 +1,39 @@
 integer
-ordered(text s)
+ordered(data s)
 {
-    integer a, i, l;
+    integer a, c, p;
 
     a = 1;
 
-    l = length(s);
-    if (l) {
-        l -= 1;
-        i = 0;
-        while (i < l) {
-            if (character(s, i + 1) < character(s, i)) {
-                a = 0;
-                break;
-            }
-            i += 1;
+    p = -1;
+    for (, c in s) {
+        if (c < p) {
+            a = 0;
+            break;
+        } else {
+            p = c;
         }
     }
 
-    return a;
+    a;
 }
 
 integer
 main(void)
 {
-    integer l, m;
     file f;
-    list w;
     text s;
+    index x;
 
-    f_affix(f, "unixdict.txt");
+    f.affix("unixdict.txt");
 
-    m = 0;
-
-    while ((l = f_line(f, s)) != -1) {
-        if (m <= l) {
-            if (ordered(s)) {
-                if (m < l) {
-                    m = l;
-                    l_clear(w);
-                }
-                l_append(w, s);
-            }
+    while (f.line(s) != -1) {
+        if (ordered(s)) {
+            x.v_list(~s).append(s);
         }
     }
 
-    l = l_length(w);
-    m = 0;
-    while (m < l) {
-        o_text(l_q_text(w, m));
-        o_byte('\n');
-        m += 1;
-    }
+    l_ucall(x.back, o_, 0, "\n");
 
     return 0;
 }