Definir la funci\u00f3n<\/p>\n
\n primeroNoConsecutivo :: (Eq a,Enum a) => [a] -> Maybe a\n<\/pre>\ntal que (primeroNoConsecutivo xs) es el primer elemento de la lista xs que no es igual al siguiente de su elemento anterior en xs o Nothing si tal elemento no existe. Por ejemplo<\/p>\n
\n primeroNoConsecutivo [1,2,3,4,6,7,8] == Just 6\n primeroNoConsecutivo \"bcdfg\" == Just 'f'\n primeroNoConsecutivo \"bcdef\" == Nothing\n<\/pre>\nSoluciones<\/h4>\n\nimport Data.Maybe (listToMaybe)\n\n-- 1\u00aa soluci\u00f3n\nprimeroNoConsecutivo1 :: (Eq a, Enum a) => [a] -> Maybe a\nprimeroNoConsecutivo1 xs\n | null ys = Nothing\n | otherwise = Just (head ys)\n where ys = [y | (z,y) <- zip xs (tail xs), y \/= succ z]\n\n-- 2\u00aa soluci\u00f3n\nprimeroNoConsecutivo2 :: (Eq a, Enum a) => [a] -> Maybe a\nprimeroNoConsecutivo2 xs = \n listToMaybe [y | (z,y) <- zip xs (tail xs), y \/= succ z]\n\n-- 3\u00aa soluci\u00f3n\nprimeroNoConsecutivo3 :: (Eq a,Enum a) => [a] -> Maybe a\nprimeroNoConsecutivo3 (x:y:zs)\n | succ x \/= y = Just y \n | otherwise = primeroNoConsecutivo3 (y:zs)\nprimeroNoConsecutivo3 _ = Nothing\n\n-- 4\u00aa soluci\u00f3n\nprimeroNoConsecutivo :: (Eq a,Enum a) => [a] -> Maybe a\nprimeroNoConsecutivo [] = Nothing\nprimeroNoConsecutivo (x:ys) = aux x ys\n where aux _ [] = Nothing\n aux x' (z:zs) | z == succ x' = aux z zs\n | otherwise = Just z\n<\/pre>\nOtras soluciones<\/h4>\n\n- Se pueden escribir otras soluciones en los comentarios.\n
- El c\u00f3digo se debe escribir entre una l\u00ednea con <pre lang="haskell"> y otra con <\/pre>\n<\/ul>\n
Pensamiento<\/h4>\n\n\u00abLa \u00fanica ense\u00f1anza que un profesor puede dar, en mi opini\u00f3n, es la de pensar delante de sus alumnos.\u00bb <\/p>\n