Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Longest-common-substring/PureBasic/longest-common-substring.basic
+++ b/Task/Longest-common-substring/PureBasic/longest-common-substring.basic
@ -0,0 +1,16 @@
+Procedure.s lcs(a$,b$)
+  If Len(a$)>Len(b$) : Swap a$,b$ : EndIf
+  l=Len(a$)
+  For c=1 To l
+    For i=1 To 1+l-c
+      If FindString(b$,Mid(a$,i,c))
+        res$=Mid(a$,i,c)
+      EndIf
+    Next
+  Next
+  ProcedureReturn res$
+EndProcedure
+
+t1$="testing123testing"
+t2$="thisisatest"
+Debug lcs(t1$,t2$)