[Haskell-cafe] Producing MinimumValue

[Dan Weston]

Oops, you got me. I didn't even look at the third line, I just took it 
from the previous post. My first instinct actually was to write:

allEqual x@(h:t) = and (zipWith (==) x t)

but I don't think that zipWith is allowed in the question.

Dan


Antoine Latter wrote:
> On 7/19/07, Dan Weston <westondan at imageworks.com> wrote:
>>
>> I would define:
>>
>> allEqual []         = True
>> allEqual [_]        = True
>> allEqual (x1:x2:xs) = (x1 == x2) && allEqual xs
> 
> What does this function do for "allEqual [1, 1, 2]" ?
> 
> Antoine
> _______________________________________________
> Haskell-Cafe mailing list
> Haskell-Cafe at haskell.org
> http://www.haskell.org/mailman/listinfo/haskell-cafe
> 
>