2

Tengo el siguiente tipo Persona:

data Persona = LaPersona Nombre Edad 
type Nombre = String 
type Edad = Int


edad :: Persona -> Edad
edad (LaPersona _ edad) = edad

Mi pregunta es: ¿Cómo hago para obtener el listado de edades de todas las personas de la lista de Personas?

Había pensado algo así, pero me quedé trabado.

edadesDePersonas :: [Persona] -> [Edad]
edadesDePersonas []= []
edadesDePersonas (p:ps) = edad p : (edad ps)

Saludos!

1 respuesta 1

1

Lo tenías casi hecho. Bastaba aplicar la función que estás definiendo recursivamente:

edadesDePersonas :: [Persona] -> [Edad]
edadesDePersonas []= []
edadesDePersonas (p:ps) = edad p : edadesDePersonas ps

Pero en este caso resulta más directo aplicar la función map (o mejor el genérico fmap para functores):

edadesDePersonas :: [Persona] -> [Edad]
edadesDePersonas ps = fmap edad ps

Y en notación pointless:

edadesDePersonas :: [Persona] -> [Edad]
edadesDePersonas = fmap edad

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.