TAD de las colas - Reconocimiento de prefijos de colas
Utilizando el tipo abstracto de datos de las colas, definir las funciones
prefijoCola :: Eq a => Cola a -> Cola a -> Bool
tal que prefijoCola c1 c2
se verifica si la cola c1
es justamente un prefijo de la cola c2
. Por ejemplo,
λ> ej1 = inserta 4 (inserta 2 vacia) λ> ej2 = inserta 5 (inserta 4 (inserta 2 vacia)) λ> ej3 = inserta 5 (inserta 2 (inserta 4 vacia)) λ> prefijoCola ej1 ej2 True λ> prefijoCola ej1 ej3 False