[Haskell-cafe] Producing MinimumValue

[Benja Fallenstein]

2007/7/19, Jason Dagit <dagit at codersbase.com>:
> > I prefer,
> >
> > allEqual [] = True
> > allEqual xs = foldl1 (==) xs
> >
> > But, unfortunately, it's not a one liner like yours (unless you allow
> > allEqual [] = undefined).
>
> Oh and silly me, that only works for [Bool].

My natural instinct is,

allEqual [] = True
allEqual (x:xs) = all (== x) xs

with the same caveat about allEqual [] as in your case.

- Benja