Data update
This commit is contained in:
parent
81fd053722
commit
52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
|
|
@ -1,8 +1,8 @@
|
|||
sub LCS$(a$, b$)
|
||||
if len(a$) = 0 or len(b$) = 0 then return "" : endif
|
||||
if len(a$) = 0 or len(b$) = 0 return
|
||||
while len(b$)
|
||||
for j = len(b$) to 1 step -1
|
||||
if instr(a$, left$(b$, j)) then return left$(b$, j) : endif
|
||||
if instr(a$, left$(b$, j)) return left$(b$, j)
|
||||
next j
|
||||
b$ = mid$(b$, 2)
|
||||
wend
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue