list - 检查列表列表是否有两个或多个相同的元素

Question

我需要编写一个函数来检查列表是否有两个或多个相同元素并返回 true 或 false。

例如，[3,3,6,1] 应返回 true，但 [3,8] 应返回 false。

这是我的代码:

identical :: [Int] -> Bool
identical x = (\n-> filter (>= 2) n )( group x )

我知道这很糟糕，而且不起作用。我想将列表分组为列表列表，如果列表的长度 >= 2，那么它应该返回 true，否则返回 false。

Answer 1

使用 any 获取 Bool 结果。

any ( . . . ) ( group x )

不要忘记对列表进行排序，group 适用于连续元素。

any ( . . . ) ( group ( sort x ) )

您可以使用(不是 . null . tail)作为谓词，作为选项之一。