32 lines
707 B
Plaintext
32 lines
707 B
Plaintext
[ 0 temp put
|
|
0 temp put
|
|
tuck dup size times
|
|
[ 2dup swap
|
|
0 temp put
|
|
0 swap witheach
|
|
[ unrot
|
|
over size
|
|
over = iff
|
|
[ drop
|
|
conclude ]
|
|
done
|
|
rot dip
|
|
[ 2dup peek ]
|
|
= tuck * +
|
|
dup temp take
|
|
max temp put ]
|
|
2drop
|
|
temp take
|
|
dup temp share > iff
|
|
[ temp release
|
|
i^ temp replace
|
|
temp put ]
|
|
else drop
|
|
behead drop ]
|
|
2drop
|
|
temp take dip
|
|
[ temp take split nip ]
|
|
split drop ] is lcs ( $ $ --> $ )
|
|
|
|
$ "thisisatest" $ "testing123testing" lcs echo$ cr
|