Revision as of 00:54, 15 January 2021 (view source) Robbie (talk \| contribs) (→‎{{header\|Wren}}) ← Older edit		Revision as of 12:51, 19 February 2021 (view source) Drkameleon (talk \| contribs) No edit summary Newer edit →
Line 663: =={{header\|Arturo}}== <lang rebol>lcp: function [lst][ ~~{{trans\|D}}~~ ~~<lang arturo>lcp: @(list){~~ ret: "" idx: 0 ~~loop~~while [true] {[ thisLetter: "" loop ~~list~~lst @('word){ [ if idx=[size word] -> return ret if thisLetter="" -> thisLetter: ~~[chars~~get split word~~].[~~ idx] if thisLetter~~!=[chars~~<>get split word~~].[~~ idx] -> return ret } ]▼ }ret: ret ++ thisLetter ~~ret~~idx: ~~ret~~idx +~~thisLetter~~ 1 ~~idx: idx+1~~] ] ▲ } } print lcp ["interspecies" "interstellar" "interstate"] print [lcp ~~#("interspecies"~~ ["~~interstellar~~throne" "~~interstate~~throne")] print [lcp #(["throne" "~~throne~~dungeon")] print [lcp #(["throne" "~~dungeon~~") "throne"] print [lcp ~~#("throne" ""~~ ["~~throne~~cheese")] print [lcp #(["~~cheese~~")] print [lcp #(["prefix" "suffix")] print [lcp #(["~~prefix~~foo" "~~suffix~~foobar")]</lang> ~~print [lcp #("foo" "foobar")]</lang>~~ {{out}} Line 702 ⟶ 698: foo</pre> =={{header\|AutoHotkey}}==

Longest common prefix (view source)