Longest common prefix: Difference between revisions
no edit summary
Drkameleon (talk | contribs) No edit summary |
|||
Line 162:
longest common prefix of ( "foo" "foobar" ) is: "foo" as expected
</pre>
=={{header|Arturo}}==
{{trans|D}}
<lang arturo>lcp [list]{
ret ""
idx 0
loop true {
thisLetter ""
loop list [word]{
if idx=$(size word) { return ret }
if thisLetter="" { thisLetter $(get $(characters word) idx) }
if thisLetter!=$(get $(characters word) idx) { return ret }
}
ret ret+thisLetter
idx idx+1
}
}
print $(lcp #("interspecies" "interstellar" "interstate"))
print $(lcp #("throne" "throne"))
print $(lcp #("throne" "dungeon"))
print $(lcp #("throne" "" "throne"))
print $(lcp #("cheese"))
print $(lcp #(""))
print $(lcp #("prefix" "suffix"))
print $(lcp #("foo" "foobar"))</lang>
{{out}}
<pre>inters
throne
cheese
foo</pre>
=={{header|AutoHotkey}}==
| |||