Longest common substring: Difference between revisions

Line 81:
=={{header|Aime}}==
<lang aime>void
test_string(text &g, text v, text l)
{
integer n;
 
n = 0prefix(v, l);
whileif (l[n] && v[n]~g ==< l[n]) {
n += 1;
}
if (length(g) < n) {
g = cut(l, 0, n);
}
}
 
longest(text u, v)
longest(text u, text v)
{
record r;
text g, l, s;
 
while (length(~u)) {
r[u] = 0;
u = delete(u, 0);
}
while (length(~v)) {
if (rsk_lower(r, v, l)) {
test_string(g, v, l);
Line 114 ⟶ 110:
}
 
return g;
}</lang>
<lang aime>o_(longest("thisisatest", "testing123testing"), "\n");</lang>
Anonymous user