Data update

This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions

View file

@ -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