28 lines
484 B
Plaintext
28 lines
484 B
Plaintext
a$ = "aebdaef"
|
|
b$ = "cacbac"
|
|
print lcs$(a$,b$)
|
|
end
|
|
|
|
FUNCTION lcs$(a$, b$)
|
|
IF a$ = "" OR b$ = "" THEN
|
|
lcs$ = ""
|
|
goto [ext]
|
|
end if
|
|
|
|
IF RIGHT$(a$, 1) = RIGHT$(b$, 1) THEN
|
|
lcs$ = lcs$(LEFT$(a$, LEN(a$) - 1), LEFT$(b$, LEN(b$) - 1)) + RIGHT$(a$, 1)
|
|
goto [ext]
|
|
ELSE
|
|
x1$ = lcs$(a$, LEFT$(b$, LEN(b$) - 1))
|
|
x2$ = lcs$(LEFT$(a$, LEN(a$) - 1), b$)
|
|
IF LEN(x1$) > LEN(x2$) THEN
|
|
lcs$ = x1$
|
|
goto [ext]
|
|
ELSE
|
|
lcs$ = x2$
|
|
goto [ext]
|
|
END IF
|
|
END IF
|
|
[ext]
|
|
END FUNCTION
|