Data commit

Task/Longest-common-substring/Ring/longest-common-substring.ring

@@ -0,0 +1,25 @@
+# Project : Longest Common Substring
+
+str1 = "testing123testing"
+str2 = "tsitest"
+see longest(str1, str2)
+
+func  longest(str1, str2)
+subarr = []
+for n=1 to len(str1)
+    for m=1 to len(str1)
+        sub = substr(str1, n, m)
+        if substr(str2, sub) > 0
+           add(subarr, sub)
+        ok
+    next
+next
+
+temp = 0
+for n=1 to len(subarr)
+    if len(subarr[n]) > temp
+       temp = len(subarr[n])
+       subend = subarr[n]
+    ok
+next
+see subend + nl