Longest common suffix: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 7: | Line 7: | ||
{{Template:Strings}} |
{{Template:Strings}} |
||
<br><br> |
<br><br> |
||
=={{header|11l}}== |
|||
<lang 11l>F lcs(sa) |
|||
I sa.empty |
|||
R ‘’ |
|||
I sa.len == 1 |
|||
R sa[0] |
|||
V min_len = min(sa.map(s -> s.len)) |
|||
L(i) 1 .. min_len |
|||
V p = sa[0][(len)-i] |
|||
L(j) 1 .< sa.len |
|||
I sa[j][(len)-i] != p |
|||
R sa[0][(len)-i+1..] |
|||
R sa[0][(len)-min_len..] |
|||
print(lcs([‘11Sunday’, ‘2Sunday’])) |
|||
print(lcs([‘Sunday’, ‘Monday’, ‘Tuesday’])) |
|||
print(lcs([‘Sunday’, ‘Monday’, ‘Tuesday’, ‘day’])) |
|||
print(lcs([‘Sondag’, ‘Maandag’, ‘Dinsdag’, ‘Woensdag’]))</lang> |
|||
{{out}} |
|||
<pre> |
|||
Sunday |
|||
day |
|||
day |
|||
dag |
|||
</pre> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |