Longest common prefix: Difference between revisions
Add ed example
(Added XPL0 example.) |
(Add ed example) |
||
Line 1,410:
</syntaxhighlight>
=={{header|ed}}==
Uses a backreference to find the longest common prefix for every (vertical bar-separated) string. Inputs should be newline-separated.
<syntaxhighlight lang="sed">
# by Artyom Bologov
H
,p
g/.*/s//&|/
,j
g/^([^|]*)[^|]*\|(\1[^|]*\|)*$/s//&: \1/
,p
Q
</syntaxhighlight>
{{out}}
<pre>$ cat longest-prefix.ed | ed -lEGs longest-prefix.input
interspecies
interstellar
interstate
interspecies|interstellar|interstate|: inters</pre>
=={{header|Elixir}}==
|