Longest common substring: Difference between revisions

Content added Content deleted

Inline

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