algorithm - 如何检查 Bool 值列表是否包含相同的值？

Question

我想写一个像这样的函数:

sameBool :: [Bool] -> Bool

例如:

[True, False, True] => False
[True, True] => True

这是我的解决方案:

sameBool :: [Bool] -> Bool
sameBool xs = if head xs == True
                  then length (filter (== False) xs) == 0
                  else length (filter (== True)  xs) == 0

虽然不优雅但有效。我正在寻找一些更优雅的解决方案。

Answer 1

与 all :

sameBool :: [Bool] -> Bool
sameBool xs = all (== head xs) xs

与 nub来自 Data.List:

import Data.List

sameBool :: [Bool] -> Bool
sameBool = (== 1) . length . nub

实际上，它们适用于 Eq 的任何实例:

sameBool :: Eq a => [a] -> Bool
sameBool xs = all (== head xs) xs
-- Note: return True for []

sameBool :: Eq a => [a] -> Bool
sameBool = (== 1) . length . nub
-- Note: return False for []

检查 nubBy对于不是 Eq 实例的类型。