26 lines
480 B
Text
26 lines
480 B
Text
func$ right a$ n .
|
|
return substr a$ -n n
|
|
.
|
|
func$ left a$ n .
|
|
if n < 0
|
|
n = len a$ + n
|
|
.
|
|
return substr a$ 1 n
|
|
.
|
|
func$ lcs a$ b$ .
|
|
if len a$ = 0 or len b$ = 0
|
|
return ""
|
|
.
|
|
if right a$ 1 = right b$ 1
|
|
return lcs left a$ -1 left b$ -1 & right a$ 1
|
|
.
|
|
x$ = lcs a$ left b$ -1
|
|
y$ = lcs left a$ -1 b$
|
|
if len x$ > len y$
|
|
return x$
|
|
else
|
|
return y$
|
|
.
|
|
.
|
|
print lcs "1234" "1224533324"
|
|
print lcs "thisisatest" "testing123testing"
|