Anonymous user
Longest common prefix: Difference between revisions
m
→{{header|Haskell}}
Line 20:
=={{header|Haskell}}==
<lang haskell>lcp :: (Eq a) => [
lcp = map head . takeWhile allEqual . truncTranspose where
-- similar to transpose, but stops on end of shortest list
|