12 Mar
2010
12 Mar
'10
2:08 p.m.
Am Freitag 12 März 2010 14:41:11 schrieb Daniel Fischer:
isHomogeneous :: Eq a => [a] -> Bool isHomogeneous [] = True isHomogeneous (x:xs) = all (== x) xs
Variant, getting rid of the special case for an empty list: isHomogeneous :: Eq a => [a] -> Bool isHomogeneous xs = and (zipWith (==) xs (drop 1 xs))