quisiera solicitarles ayuda con un ejercicio en Haskell.
type Nombre = String
type Edad = Int
type Sueldo = Float
type Empleado = (Nombre, Edad, Sueldo)
nombre :: Empleado -> Nombre
nombre (n,_,_) = n
edad :: Empleado -> Edad
edad (_,e,_) = e
sueldo :: Empleado -> Sueldo
sueldo (_,_,s) = s
empleados :: [Empleado]
empleados = [("aaa", 82, 1000), ("bbb",50,1100), ("cc",65,1150)]
PARTE 1: OK - Devuelve empleados mayores a 60 años.
proximosAJubilarse :: [Empleado] -> [Nombre]
proximosAJubilarse = (map nombre).(filter (\(_,e,_) -> e > 60))
PARTE 2: OK - Devuelve el sueldo máximo entre todos los empleados.
sueldoMaximo :: [Empleado] -> Float
sueldoMaximo = maximum.(map sueldo)
PARTE 3: = No se como continuar
Escribir una función empleadoConSueldoMaximo :: [Empleado] −> Empleado que, dada una lista de empleados, devuelve un empleado con sueldo máximo entre todos los empleados. Se debe utilizar la función find :: (a −> Bool) −> [a] −> Maybe a
que, dado un predicado f y una lista, devuelve algún valor de la lista que cumpla con el predicado, o devuelve Nothing en caso que no haya ninguno.
find :: (a -> Bool) -> [a] -> Maybe a
find f = foldr g Nothing
where g x rc | f x = Just x
| otherwise = rc
"Inicio de solución"
empleadoConSueldoMaximo :: [Empleado] -> Empleado
?