32 lines
707 B
Text
32 lines
707 B
Text
|
[ 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
|