Sin consecutivos repetidos

PorJosé A. Alonso 9-diciembre-201427-diciembre-2014

Enunciado

-- Definir la función
--    sinConsecutivosRepetidos :: Eq a => [a] -> [a]
-- tal que (sinConsecutivosRepetidos xs) es la lista obtenida a partir
-- de xs de forma que si hay dos o más elementos idénticos consecutivos,
-- borra las repeticiones y deja sólo el primer elemento. Por ejemplo,
--    ghci> sinConsecutivosRepetidos "eesssooo essss   toodddooo"
--    "eso es todo"

1

2

3

4

5

6

7

-- Definir la función

-- sinConsecutivosRepetidos :: Eq a => [a] -> [a]

-- tal que (sinConsecutivosRepetidos xs) es la lista obtenida a partir

-- de xs de forma que si hay dos o más elementos idénticos consecutivos,

-- borra las repeticiones y deja sólo el primer elemento. Por ejemplo,

-- ghci> sinConsecutivosRepetidos "eesssooo essss toodddooo"

-- "eso es todo"

Soluciones

import Data.List (group)

-- 1ª solución (por comprensión):
sinConsecutivosRepetidos :: Eq a => [a] -> [a]
sinConsecutivosRepetidos xs = [x | (x:_) <- group xs]

-- 2ª solución (por recursión):
sinConsecutivosRepetidos2 :: Eq a => [a] -> [a]
sinConsecutivosRepetidos2 [] = []
sinConsecutivosRepetidos2 (x:xs) = 
    x : sinConsecutivosRepetidos2 (dropWhile (==x) xs)

1

2

3

4

5

6

7

8

9

10

11

import Data.List (group)

-- 1ª solución (por comprensión):

sinConsecutivosRepetidos :: Eq a => [a] -> [a]

sinConsecutivosRepetidos xs = [x | (x:_) <- group xs]

-- 2ª solución (por recursión):

sinConsecutivosRepetidos2 :: Eq a => [a] -> [a]

sinConsecutivosRepetidos2 [] = []

sinConsecutivosRepetidos2 (x:xs) =

x : sinConsecutivosRepetidos2 (dropWhile (==x) xs)

6 Comentarios

sinConsecutivosRepetidos :: Eq a => [a] -> [a]
sinConsecutivosRepetidos []     = []
sinConsecutivosRepetidos (x:xs) = x:(sinConsecutivosRepetidos (dropWhile (==x) xs))

1

2

3

sinConsecutivosRepetidos :: Eq a => [a] -> [a]

sinConsecutivosRepetidos [] = []

sinConsecutivosRepetidos (x:xs) = x:(sinConsecutivosRepetidos (dropWhile (==x) xs))

sinConsecutivosRepetidos []  = []
sinConsecutivosRepetidos [x] = [x]
sinConsecutivosRepetidos (x:y:xs) 
    | x == y    = sinConsecutivosRepetidos (y:xs)
    | otherwise = x : sinConsecutivosRepetidos (y:xs)

1

2

3

4

5

sinConsecutivosRepetidos [] = []

sinConsecutivosRepetidos [x] = [x]

sinConsecutivosRepetidos (x:y:xs)

| x == y = sinConsecutivosRepetidos (y:xs)

| otherwise = x : sinConsecutivosRepetidos (y:xs)

sinConsecutivosRepetidos [x] = [x]
sinConsecutivosRepetidos (x:y:xs) 
    |x == y    = (sinConsecutivosRepetidos (y:xs))
    |otherwise = (x:(sinConsecutivosRepetidos (y:xs)))

1

2

3

4

sinConsecutivosRepetidos [x] = [x]

sinConsecutivosRepetidos (x:y:xs)

|x == y = (sinConsecutivosRepetidos (y:xs))

|otherwise = (x:(sinConsecutivosRepetidos (y:xs)))

sinConsecutivosRepetidos :: Eq a => [a] -> [a]
sinConsecutivosRepetidos [x] = [x]
sinConsecutivosRepetidos (x:y:xs) 
    | x==y      = sinConsecutivosRepetidos (y:xs)
    | otherwise = [x] ++ sinConsecutivosRepetidos (y:xs)

1

2

3

4

5

sinConsecutivosRepetidos :: Eq a => [a] -> [a]

sinConsecutivosRepetidos [x] = [x]

sinConsecutivosRepetidos (x:y:xs)

| x==y = sinConsecutivosRepetidos (y:xs)

| otherwise = [x] ++ sinConsecutivosRepetidos (y:xs)

Manuel Miranda dice:

9-diciembre-2014 a las 13:52

Haskell

sinConsecutivosRepetidos :: Eq a => [a] -> [a] sinConsecutivosRepetidos xs = [head ys | ys <- group xs]

1
2

sinConsecutivosRepetidos :: Eq a => [a] -> [a]
sinConsecutivosRepetidos xs = [head ys | ys <- group xs]

Responder
Jesús Navas Orozco dice:

9-diciembre-2014 a las 14:27

Haskell

sinConsecutivosRepetidos :: Eq a => [a] -> [a] sinConsecutivosRepetidos = map head . group

1
2

sinConsecutivosRepetidos :: Eq a => [a] -> [a]
sinConsecutivosRepetidos = map head . group

Responder

Leave a Reply to Alejandro Luque CerpaCancel reply