Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,14 +0,0 @@
|
|||
Function lcs(string1,string2)
|
||||
For i = 1 To Len(string1)
|
||||
tlcs = tlcs & Mid(string1,i,1)
|
||||
If InStr(string2,tlcs) Then
|
||||
If Len(tlcs) > Len(lcs) Then
|
||||
lcs = tlcs
|
||||
End If
|
||||
Else
|
||||
tlcs = ""
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
WScript.Echo lcs(WScript.Arguments(0),WScript.Arguments(1))
|
||||
Loading…
Add table
Add a link
Reference in a new issue