Máximo número de consecutivos iguales al dado

4 Comentarios

1. No sé si es válida porque he cambiado «Eq a => a -> [a] -> Int» por «Ord a => a -> [a] -> Int».

   Haskell

   import Data.List maximoConsecutivosIguales :: Ord a => a -> [a] -> Int maximoConsecutivosIguales x xs | not (elem x xs) = 0 | elem x xs = maximum (map length (takeWhile (elem x) (dropWhile (not.elem x) (sort (group xs)))))

   1 2 3 4 5 6

   import Data.List   maximoConsecutivosIguales :: Ord a => a -> [a] -> Int maximoConsecutivosIguales x xs   | not (elem x xs) = 0   | elem x xs = maximum (map length (takeWhile (elem x) (dropWhile (not.elem x) (sort (group xs)))))

   Responder

2. Haskell

   import Data.List (group) maximoConsecutivosIguales :: Eq a => a -> [a] -> Int maximoConsecutivosIguales a xs | notElem a xs = 0 | otherwise = maximum [y | (x,y) <- zip zs ys, x == a] where ps = group xs ys = map length ps zs = map head ps

   1 2 3 4 5 6 7 8 9

   import Data.List (group)   maximoConsecutivosIguales :: Eq a => a -> [a] -> Int maximoConsecutivosIguales a xs   | notElem a xs = 0   | otherwise    = maximum [y | (x,y) <- zip zs ys, x == a]   where ps = group xs         ys = map length ps         zs = map head ps

   Responder

3. Haskell

   import Data.List maximoConsecutivosIguales :: Eq a => a -> [a] -> Int maximoConsecutivosIguales x = maximum . (0:) . map length . filter ((x==).head) . group

   1 2 3 4

   import Data.List   maximoConsecutivosIguales :: Eq a => a -> [a] -> Int maximoConsecutivosIguales x = maximum . (0:) . map length . filter ((x==).head) . group

   Responder

4. Haskell

   import Data.List (group) maximoConsecutivosIguales :: Eq a => a -> [a] -> Int maximoConsecutivosIguales x xs | x `notElem` xs = 0 | otherwise = maximum [length ys | ys <- group xs , x `elem` ys]

   1 2 3 4 5 6

   import Data.List (group)   maximoConsecutivosIguales :: Eq a => a -> [a] -> Int maximoConsecutivosIguales x xs    | x `notElem` xs = 0    | otherwise      = maximum [length ys | ys <- group xs , x `elem` ys]

   Responder