Haskell -最频繁的值
Haskell -最频繁的值
提问于 2012-12-12 12:51:37
如何获取列表示例中最常用的值：
[1,3,4,5,6,6] -> output 6
[1,3,1,5] -> output 1我正在尝试通过我自己的函数来获得它，但我无法实现它，你们能帮助我吗？
我的代码：
del x [] = []
del x (y:ys) = if x /= y
then y:del x y
else del x ys
obj x []= []
obj x (y:ys) = if x== y then y:obj x y else(obj x ys)
tam [] = 0
tam (x:y) = 1+tam y
fun (n1:[]) (n:[]) [] =n1
fun (n1:[]) (n:[]) (x:s) =if (tam(obj x (x:s)))>n then fun (x:[]) ((tam(obj x (x:s))):[]) (del x (x:s)) else(fun (n1:[]) (n:[]) (del x (x:s)))
rep (x:s) = fun (x:[]) ((tam(obj x (x:s))):[]) (del x (x:s))Stack Overflow用户
发布于 2012-12-12 19:44:25
根据萨特维克的最后一个建议，您可以使用Control.Arrow中的(&&&) :: (b -> c) -> (b -> c') -> (b -> (c, c')) (注意，为简单起见，我在该类型签名中替换了a = (->) )来干净利落地执行decorate-sort-undecorate transform。
mostCommon list = fst . maximumBy (compare `on` snd) $ elemCount
where elemCount = map (head &&& length) . group . sort $ listhead &&& length函数的类型为[b] -> (b, Int)。它将列表转换为第一个元素及其长度的元组，因此当它与group . sort组合时，您将获得列表中每个不同值的列表以及它出现的次数。
此外，您还应该考虑调用mostCommon []时会发生什么。显然没有合理的值，因为根本没有元素。就目前而言，所有提出的解决方案(包括我的)都会在一个空列表上失败，这不是一个好的Haskell。通常的做法是返回一个Maybe a，其中Nothing表示一个错误(在本例中是一个空列表)，Just a表示一个“真正的”返回值。例如：
mostCommon :: Ord a => [a] -> Maybe a
mostCommon [] = Nothing
mostCommon list = Just ... -- your implementation here这要好得多，因为从代码安全的角度来看，部分函数(对于某些输入值未定义的函数)是可怕的。您可以使用模式匹配(在Nothing和Just x上匹配)和Data.Maybe中的函数(最好是fromMaybe和maybe，而不是fromJust)来操作Maybe的值。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/13833017
复制相关文章
相似问题
腾讯云开发者
