Longest common suffix: Difference between revisions

m
→‎AppleScript :: Functional: Tidier test format.
(→‎{{header|JavaScript}}: Added a draft in JavaScript)
m (→‎AppleScript :: Functional: Tidier test format.)
Line 157:
on run
script test
on |λ|(xss)
set xs to words of s
showList(xs) & " -> '" & longestCommonSuffix(xs) & "'"
end |λ|
Line 163 ⟶ 164:
unlines(map(test, {¬
{"throne", "sousaphone", "tone"}, ¬
{"prefix", "suffix", "infix"}, ¬
{"remark", "spark", "aardvark", "lark"}, ¬
{"ectoplasm", "banana", "brick"}}))
end run
 
9,655

edits