Longest common substring: Difference between revisions
m
→using FreePascal
(Longest common substring in various dialects BASIC (QBasic, Run BASIC and True BASIC)) |
|||
Line 1,735:
FOR k := length ( S1 ) - j DOWNTO 1 DO BEGIN
S := Copy(S1
IF ( pos ( S, S2 ) > 0 ) AND
|