Rosetta Code

Summarize and say sequence: Difference between revisions

Page Discussion

Summarize and say sequence (view source)

Revision as of 10:47, 2 November 2017

467 bytes removed ,  6 years ago
→‎{{header|Aime}}
m (fixed a bullet.)
Line 146:
{{trans|C}}
<lang aime>text
next(text s, integer show)
{
integer c, e, l;
recordindex v;
data d;
text u;
 
l = length(~s);
while (l) {
integerv[-s[l e-= 1]] += 1;
 
l -= 1;
e = 0;
u = insert("", 0, s[l]);
r_j_integer(e, v, u);
r_f_integer(v, u, e + 1);
}
 
iffor (r_last(vc, u)e in v) {
dob_form(d, {"%d%c", e, -c);
b_plan(d, v[u], u);
} while (rsk_less(v, u, u));
}
 
ifreturn (show) {d;
o_text(b_string(d));
o_newline();
}
 
return b_string(d);
}
 
Line 187 ⟶ 173:
if (d <= 0) {
i += 1;
ifd += (d) {? i : -i;
r[s] = d += i;
}i else= {depth(next(s), i, r);
d = -i;
}
r_f_integer(r, s, d);
i = depth(next(s, 0), i, r);
d = r[s];
if (d <= 0) {
r[s] = d = i + 1;
r_r_integer(r, s, d);
}
}
Line 225 ⟶ 206:
}
 
o_text(cat3o_("longest length is ", itoa(d), "\n"));
while (l_lengthl_o_integer(i, l, 0)) {
text s;
 
o_newlineo_("\n", i, "\n");
r_clear(r);
lf_e_integer(i, l);
o_integer(i);
o_newline();
e = d - 1;
s = itoa(i);
while (e) {
o_(s = next(s), 1"\n");
e -= 1;
}
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/199047"