20 Jul
2007
20 Jul
'07
10:32 a.m.
Hello Benja, Friday, July 20, 2007, 6:10:15 PM, you wrote:
My natural instinct is,
allEqual [] = True allEqual (x:xs) = all (== x) xs
with the same caveat about allEqual [] as in your case.
allEqual xs = all (== head xs) xs -- Best regards, Bulat mailto:Bulat.Ziganshin@gmail.com