September Morn Update

Task/Balanced-brackets/Aime/balanced-brackets.aime

@@ -1,54 +1,35 @@
-integer
 unbalanced(data s)
 {
     integer b, i;
 
-    b = 0;
-    i = 0;
-    while (i < b_length(s)) {
-        if (s[i] == '[') {
-            b += 1;
-        } else {
-            b -= 1;
-            if (b < 0) {
-                break;
-            }
-        }
-
-        i += 1;
+    b = i = 0;
+    while (i + ~s && -1 < b) {
+        b += s[i -= 1] == '[' ? -1 : 1;
     }
 
-    return b;
+    b;
 }
 
-text
-generate(integer d)
+generate(data b, integer d)
 {
-    list l;
-    data b;
-
-    l_pn_integer(l, 0, d, '[');
-    l_pn_integer(l, 0, d, ']');
-    l_rand(l);
-    l_ucall(l, b_append, 1, b);
-
-    return b;
+    if (d) {
+        d.times(l_bill, list(), -1, '[', ']').l_rand().ucall(b_append, 1, b);
+    }
 }
 
-integer
 main(void)
 {
     integer i;
 
     i = 0;
     while (i < 10) {
-        text s;
+        data s;
 
-        s = generate(i);
-        o_plan(s, " is ", unbalanced(s) ? "un" : "", "balanced\n");
+        generate(s, i);
+        o_(s, " is ", unbalanced(s) ? "un" : "", "balanced\n");
 
         i += 1;
     }
 
-    return 0;
+    0;
 }