Data update

Task/Longest-common-substring/Langur/longest-common-substring.langur

@@ -2,7 +2,7 @@ val lcs = fn(s1, s2) {
     var l, r, sublen = 1, 0, 0
     for i of s1 {
         for j in i .. len(s1) {
-            if not matching(s2s(s1, i .. j), s2): break
+            if not matching(s2, by=s2s(s1, of=i .. j)): break
             if sublen <= j - i {
                 l, r = i, j
                 sublen = j - i
@@ -10,7 +10,7 @@ val lcs = fn(s1, s2) {
         }
     }
     if r == 0: return ""
-    s2s s1, l .. r
+    s2s s1, of=l .. r
 }
 
 writeln lcs("thisisatest", "testing123testing")

Task/Longest-common-substring/PascalABC.NET/longest-common-substring.pas

@@ -0,0 +1,21 @@
+##
+function lcs(s1, s2: string): String;
+begin
+  var l := 1;
+  var r := 0;
+  var sub_len := 0;
+  for var i := 1 to s1.length do
+    foreach var j in (i..s1.length) do
+    begin
+      if s2.contains(s1[i:j + 1]) then
+        if sub_len <= j - i then
+        begin
+          (l, r) := (i, j);
+          sub_len := j - i;
+        end
+        else break
+    end;
+  result := s1[l:r + 1];
+end;
+
+lcs('thisisatest', 'testing123testing').println;