Wie überprüfe ich, ob eine Liste von Bool-Werten den gleichen Wert enthält?

Question

Ich möchte eine Funktion wie schreiben:

sameBool :: [Bool] -> Bool 

zum Beispiel:

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

Hier ist meine Lösung:

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

Mit Wirkung aber nicht elegant. Ich suche eine elegantere Lösung.

Answer 1

Mit all:

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

Mit nub von Data.List:

import Data.List 

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

Eigentlich arbeitet sie für jede Instanz von 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 [] 

prüfen nubBy für Typen, die ‚aren t Instanzen von Eq.