On 7/19/07, Dan Weston <[EMAIL PROTECTED]> 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@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to