20 Jul
2007
20 Jul
'07
10:46 a.m.
2007/7/20, Bulat Ziganshin
allEqual [] = True allEqual (x:xs) = all (== x) xs
with the same caveat about allEqual [] as in your case.
allEqual xs = all (== head xs) xs
Riiiight. Not evaluated in the edge case, because xs is empty. Didn't think of that, nice :-) - Benja