Longest common prefix: Difference between revisions

<lang arturo>lcp: [@(list]){

ret: ""

idx: 0

thisLetter: ""

loop list [@(word]){

if idx=$([size word)] { return ret }

if thisLetter="" { thisLetter: $(get $(characters[chars word) ].[idx)] }

if thisLetter!=$(get $(characters[chars 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>