Revision as of 10:47, 1 September 2020 (view source) PureFox (talk \| contribs) (Added Wren) ← Older edit		Revision as of 15:35, 16 September 2020 (view source) Alpha bravo (talk \| contribs) m (Added AutoHotkey) Newer edit →
Line 28: :*   [[Abbreviations, easy]] :*   [[Longest common prefix]] :*   [[Longest common suffix]] :*   [[Longest increasing subsequence]] :*   [[Suffixation of decimal numbers]] Line 672 ⟶ 673: =={{header\|AutoHotkey}}== <lang AutoHotkey>~~lcp~~Longest_common_prefix(strdata){ for knum, v in ~~str~~StrSplit(data.1) for i, word in data ~~w := v, list .= (list ? "`n" : "") v~~ if (SubStr(word, 1, num) <> SubStr(data.1, 1, num)) ~~return RegExReplace(list, "^(.)\K(\V\R\1\V)+$")~~ return SubStr(word, 1, num-1) return word }</lang> Examples:<lang AutoHotkey>MsgBox % ~~lcp(~~"~~interspecies~~"~~,"interstellar","interstate")</lang>~~ . "`n" Longest_common_prefix(["interspecies","interstellar","interstate"]) ~~Outputs:<pre>inters</pre>~~ . "`n" Longest_common_prefix(["throne", "throne"]) . "`n" Longest_common_prefix(["throne", "dungeon"]) . "`n" Longest_common_prefix(["throne", "", "throne"]) . "`n" Longest_common_prefix(["cheese"]) . "`n" Longest_common_prefix([""]) . "`n" Longest_common_prefix(["send", "serve"]) return</lang> {{out}} <pre> inters throne cheese se </pre> =={{header\|AWK}}==

Longest common prefix (view source)