Longest common substring: Difference between revisions
Content added Content deleted
(easylang) |
(A) |
||
Line 2,246: | Line 2,246: | ||
main() |
main() |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
<pre>test</pre> |
|||
=={{header|Quackery}}== |
|||
<syntaxhighlight lang="Quackery"> [ 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 |
|||
temp release |
|||
i^ temp put |
|||
temp put ] |
|||
else drop |
|||
behead drop ] |
|||
2drop |
|||
temp take dip |
|||
[ temp take split nip ] |
|||
split drop ] is lcs ( $ $ --> $ ) |
|||
$ "thisisatest" $ "testing123testing" lcs echo$ cr</syntaxhighlight> |
|||
{{out}} |
|||
<pre>test</pre> |
<pre>test</pre> |
||