如何检查一个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为大家还不类型t的情况Eq。