He estado buscando antes de abrir un tema pero no encuentro algo como lo que necesito.
Se da el caso que tengo que comparar dos listas con una determinada condición, elemento a elemento, pero soy incapaz. La función tiene que devolver un Bool, True si son iguales y False si no.
Esto es lo que tengo que hacer: Los elementos que ocupan posición impar en la primera lista deben aparecer en posición par en la segunda lista, pero en orden inverso. Los elementos que ocupan posición par en la primera lista deben aparecer en posición impar dentro de la segunda lista, y en el mismo orden.
Dado esto, mi código es el siguiente:
separarPorPosicion :: [a] -> ([a],[a])
separarPorPosicion [] = ([],[])
separarPorPosicion xs = (listaPar,listaImpar)
where
listaPar = [ x | (x,y) <- zip xs [1..length xs], even y]
listaImpar = [ x | (x,y) <- zip xs [1..length xs], odd y]
mellizas :: Eq a => [a] -> [a] -> Bool
mellizas [] [] = True
mellizas _ [] = False
mellizas [] _ = False
mellizas xs ys = impar1 == reverse par2 && par1 == impar2
where
par1 = [x | (x,y)<- separarPorPosicion xs]
par2 = [x | (x,y)<- separarPorPosicion ys]
impar1 = [y | (x,y)<- separarPorPosicion xs]
impar2 = [y | (x,y)<- separarPorPosicion ys]
Me da un error de tipos que soy incapaz de resolver. Alguna idea? Gracias de antemano!
(par1, impar1) = separarPorPosicion xs (par2, impar2) = separarPorPosicion ys