Longest common suffix: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add APL) |
Not a robot (talk | contribs) (Add J) |
||
Line 1,195: | Line 1,195: | ||
dag</pre> |
dag</pre> |
||
=={{header|J}}== |
|||
<lang j>lcs =: [: |. [: ({. #~ [: *./\ [: *./ 2 =/\ ]) >@(|. each) |
|||
test1 =: 'baabababc';'baabc';'bbabc' |
|||
test2 =: 'baabababc';'baabc';'bbazc' |
|||
test3 =: 'Sunday';'Monday';'Tuesday';'Wednesday';'Friday';'Saturday' |
|||
test4 =: 'longest';'common';'suffix' |
|||
tests =: test1;test2;test3;<test4 |
|||
echo@((1{":),' -> ', 1{":@<@lcs) each tests |
|||
exit''</lang> |
|||
{{out}} |
|||
<pre>│baabababc│baabc│bbabc│ -> │abc│ |
|||
│baabababc│baabc│bbazc│ -> │c│ |
|||
│Sunday│Monday│Tuesday│Wednesday│Friday│Saturday│ -> │day│ |
|||
│longest│common│suffix│ -> ││</pre> |
|||
=={{header|Java}}== |
=={{header|Java}}== |