tp

sigla :: [[Char]]->[Char]
sigla x = [head n | n<-x]

vocales = ['a','e','i','o','u','A','E','I','O','U']

esVocal :: Char->Bool
esVocal x = elem x vocales

cantvocales :: [Char]->Int
cantvocales x = length [m | m <- x, esVocal m]

mitletras :: [Char]->Int
mitletras x = div (length x) 2

masVocales :: [Char]->Bool
masVocales cad = mitletras cad < cantvocales cad

interseccion :: Eq a =>[a]->[a]->[a]
interseccion x y = [ n | n<-x, m<-y,n==m]

nombre :: ([Char],Int,Char,[[Char]]) -> [Char]
nombre  (_,_,_,sucursales) = head sucursales

casaMatriz :: ([Char],Int,Char,[[Char]]) -> Bool
casaMatriz (_,_,_,sucursales) = (last sucursales) == "Casa Matriz"

paraJubilarse :: ([Char],Int,Char,[[Char]]) -> Int
paraJubilarse (_,edad,sexo,_) | sexo == 'M' = 65 - edad
                  | sexo == 'F' = 60 - edad
                  | otherwise = error "Sexo incorrecto"

mismaSucursal :: ([Char],Int,Char,[[Char]]) -> ([Char],Int,Char,[[Char]]) -> Bool
mismaSucursal (_,_,_,sucursales) (_,_,_,sucursales2) = not $ null $ interseccion sucursales sucursales2

distsexo :: ([Char],Int,Char,[[Char]])->([Char],Int,Char,[[Char]])->Bool
distsexo (_,_,sexo,_) (_,_,sexo2,_) = not $ sexo == sexo2

salirjuntos :: ([Char],Int,Char,[[Char]])->([Char],Int,Char,[[Char]])->Bool
salirjuntos x y = (distsexo x y) && (jub x y) && (mismsucmat x y)
          where jub a b = (paraJubilarse a > 10) && (paraJubilarse b > 10)
            mismsucmat c d = (mismaSucursal c d) || estamatriz c d
            estamatriz e f = (casaMatriz e || casaMatriz f)