Data commit

Task/Longest-common-substring/Action-/longest-common-substring.action

@@ -0,0 +1,53 @@
+BYTE Func Equals(CHAR ARRAY a,b)
+  BYTE i
+
+  IF a(0)#b(0) THEN
+    RETURN (0)
+  FI
+
+  FOR i=1 TO a(0)
+  DO
+    IF a(i)#b(i) THEN
+      RETURN (0)
+    FI
+  OD
+RETURN (1)
+
+PROC Lcs(CHAR ARRAY a,b,res)
+  CHAR ARRAY t(100)
+  BYTE i,j,len
+
+  IF a(0)<b(0) THEN
+    len=a(0)
+  ELSE
+    len=b(0)
+  FI
+
+  WHILE len>0
+  DO
+    FOR i=1 to a(0)-len+1
+    DO
+      SCopyS(res,a,i,i+len-1)
+      FOR j=1 to b(0)-len+1
+      DO
+        SCopyS(t,b,j,j+len-1)
+        IF Equals(res,t) THEN
+          RETURN
+        FI
+      OD
+    OD
+    len==-1
+  OD
+  res(0)=0
+RETURN
+
+PROC Test(CHAR ARRAY a,b)
+  CHAR ARRAY res(100)
+
+  Lcs(a,b,res)
+  PrintF("lcs(""%S"",""%S"")=""%S""%E",a,b,res)
+RETURN
+
+PROC Main()
+  Test("thisisatest","testing123testing")
+RETURN