Longest common prefix: Difference between revisions
Content added Content deleted
m (→version 2: added whitespace.) |
|||
Line 2,776:
say LCP('foo', "foobar") /*two mostly similar strings. */
say LCP('a', "b", 'c', "aaa") /*four strings, mostly different. */
exit
/*──────────────────────────────────────────────────────────────────────────────────────*/
LCP: @= arg(1); m= length(@); #= arg(); say copies('▒', 50)
do i=1 for #; say '────────────── string' i":" arg(i)
end /*i*/
do j=2 to #; x= arg(j);
if t==1 | x=='' then do; @= ; leave;
if t==0 & @==x then t= length(@) + 1
if t>=m then iterate /*not longest str.*/
m= t - 1; @= left(@, max(0, m)
end /*j*/
return ' longest common prefix=' @ /*return answer. */</lang>
<pre>
▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
| |||