Iguales_al_siguiente

Description

Definir la función

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

tal que (igualesAlSiguiente xs) es la lista de los elementos de xs que son iguales a su siguiente. Por ejemplo,

>>> igualesAlSiguiente [1,2,2,2,3,3,4::Int]
[2,2,3]
>>> igualesAlSiguiente [1..10::Int]
[]

Synopsis

Documentation

1ª definición (con zip)

2ª definición (por recursión)

3ª definición (con concat y comprensión)

4ª definición (con concatMap)

5ª definición (con concatMap y sin argumentos):

(prop_igualesAlSiguiente xs) se verifica si todas las definiciones de igualesAlsiguiente son equivalentes para xs. Por ejemplo,

>>> prop_igualesAlSiguiente [1,2,2,2,3,3,4]
True
>>> prop_igualesAlSiguiente [1..10]
True

Comprueba la equivalencia de las definiciones

verificaIgualesAlSiguiente

+++ OK, passed 100 tests.