Máximo número de consecutivos iguales al dado
Definir la función
maximoConsecutivosIguales :: Eq a => a -> [a] -> Int
tal que (maximoConsecutivosIguales x xs) es el mayor número de elementos consecutivos en xs iguales a x. Por ejemplo,
maximoConsecutivosIguales 'b' "abbcccbbbd" == 3 maximoConsecutivosIguales 'b' "abbbbcccbbbd" == 4 maximoConsecutivosIguales 'e' "abbcccbbbd" == 0
Soluciones
import Data.List (group) maximoConsecutivosIguales :: Eq a => a -> [a] -> Int maximoConsecutivosIguales x = maximum . (0:) . map length . filter ((== x) . head) . group