:: [Bool] -> Bool package:utility-ht

>>> allEqual "aab"
False

>>> allEqual "aaa"
True

>>> allEqual "aa"
True

>>> allEqual "a"
True

>>> allEqual ""
True

isAscending :: Ord a => [a] -> Bool

utility-ht Data.List.HT

>>> isAscending "abc"
True

>>> isAscending "abb"
True

>>> isAscending "aba"
False

>>> isAscending "cba"
False

>>> isAscending "a"
True

>>> isAscending ""
True