我是Haskell的新手并试图找出如何实现以下两个功能。
1,2,2 -> true
和1,2,3 -> false
)1,1,2 -> 2
)非常感谢你。
答案 0 :(得分:1)
对元素进行排序和分组,并对等价类进行计数,这将为您提供不同元素的计数
distinct = length . group . sort
使用上面的定义,如果有重复,则不同元素的数量将小于元素的数量。
dups = liftM2 (/=) length distinct
这是一种更简单的写作方式
dups x = length x /= distinct x