如何在列表中找到最长的字符串？哈斯克尔[重复]答案

【问题标题】：How can I find the longest string within a list? Haskell [duplicate]如何在列表中找到最长的字符串？哈斯克尔[重复]
【发布时间】：2014-12-17 15:13:17
【问题描述】：

仅使用前奏函数，如何返回字符串列表中最长的字符串？

例如

["abc","ab","cb"]

会回来

"abc"

【问题讨论】：

【解决方案1】：

如果你真的想限制自己只使用 Prelude 函数，这里有一个简单的解决方案：

longest :: [String] -> String
longest xss = snd $ maximum $ [(length xs, xs) | xs <- xss]

也就是说，您首先将列表中的每个元素与其长度配对，然后根据字典顺序取最大的对，最后丢弃这对的长度分量，留下最长的字符串。

正如其他人也指出的那样，允许自己也使用其他库，使得编写这个函数变得相当容易。例如，分别从Data.Ord 和Data.List 导入maximumBy 和comparing，使您可以将函数简单地编写为

longest = maximumBy (comparing length)

将comparing从Data.List换成on，可以写成

longest = maximumBy (compare `on` length)

最后两个版本的优点是它们有一个更通用的类型，即[[a]] -> [a]，然后是我上面给出的 all-Prelude 函数，它的类型最多可以泛化为Ord a => [[a]] -> [a]。

【讨论】：

【解决方案2】：

> import Data.List
> import Data.Ord
> maximumBy (comparing length) ["abc","ab","cb"]
"abc"

【讨论】：

【解决方案3】：

一个简单的fold 应该这样做：

λ> foldl1' (\acc x -> if length acc > length x then acc else x) ["aaa","c","ffff"]
"ffff"

在每次迭代中，比较acc是否大于迭代的当前元素并返回最大元素。但请注意，foldl1' 会在您提供空输入列表时崩溃。

【讨论】：