Tengo una duda muy sarpada con el orden superior. Quiero comparar si ambas condiciones devuelven true con la misma lista (ej: ("Leonardo",[4,6,7,8])), por lo tanto supongo que deberia usar filter 2 veces. Primero para el nombre y luego para ver si tiene mas de 3 notas.
Pregunto porque estoy hace bastante con esto y no me cierra del todo. Si uso any directamente, seria erroneo. Tambien se que puedo usar composicion de funciones, en teoria, pero no me sale
Alguna ayuda? Estoy hasta las bolas y no encuentre algun tutoria/libro que diga que se sarpe explicando.
Saludos
Cita:Dadas las siguientes definiciones:
find f lista = head (filter f lista)
--Este es un curso a modo de ejemplo para que lo usen en sus pruebas
cursoK1024 = [("Leonardo",[4,6,7,8]),("Raphael",[1]),("Donatello",[10,10,10]),("Michelangelo",[4,4])]
Se quiere
Dado el nombre de una persona y un curso saber si esa persona es un alumno regular de dicho curso.
Esto se da si se cumplen las siguientes condiciones:
que esa persona sea un alumno del curso y
que haya rendido al menos 3 parciales
Main> esRegularEn cursoK1024 "Shredder"
False
Main> esRegularEn cursoK1024 "Raphael"
False
Main> esRegularEn cursoK1024 "Leonardo"
True
find f lista = head (filter f lista)
curso = [("Leonardo",[4,6,7,8].gif ";)")
,("Raphael",[1],("Donatello",[10,10,10],("Michelangelo",[4,4]]
sacarnombre(nombre,_) = nombre
sacarnotas(_,notas) = notas
nombres = map sacarnombre
notas = map sacarnotas
rendido lis = filter ((>=3).length.sacarnotas) lis
esta lis nom = filter ((==nom).sacarnombre) lis
Mi haskell está un poco oxidado, pero:
esRegularEn c n = not (null (filter (\x -> length (snd x) <= 3 && (fst x) == n) c))
El filter
filter (\x -> length (snd x) <= 3 && (fst x) == n) c
te filtra todos los alumnos del curso
c cuyo nombre sea
n y su cantidad de notas sea <= 3. Podés probarlo por separado, reemplazando
c por la lista del curso y
n por un nombre de alumno.
El
null recibe como parametro una lista y te dice si está vacía.
El
not invierte el valor booleano, porque a vos te interesa saber si el alumno es regular, o sea, si la lista retornada por el filter tiene elementos.
Ojalá te sirva.
Saludos
Muchas gracias por tu tiempo, me sirvio para pensarlo de otra manera
Pero tengo problema cuando recibo la lista vacia
Intente poner un not(null [])) pero es muy villa jaja Te dejo el codigo y en que consulta tendria error
curso = [("Leonardo",[4,6,7,8],("Raphael",[1],("Donatello",[10,10,10],("Michelangelo",[4,4]]
find f lista = head (filter f lista)
sacarnombre(nombre,_) = nombre
sacarnotas(_,notas) = notas
esRegularEn lista nombre = ((>=3).length.sacarnotas) (find ((nombre==).sacarnombre) lista)
Cita:esRegularEn curso "Shredder"
Program error: pattern match failure: head
Se me complica usar esa funcion porque me devuelve una lista si o si y me la pide para el tp
Gracias
PRometo qu epronto viene el resaltado de codigo y el compilador en haskell
jaja, buenísimo.
@Niko: El problema es para aplicar head necesitas de una lista con elementos. Con esa implementación de la función find si le "metes" una lista vacía, o el filter te filtra todos los elementos de la lista, te va a dar ese error. No veo como escaparle.
Al final entregue el TP 'asi nomas' (Con el error del pattern match) y me lo dieron como aprobado jajaja. Posiblemente pueda utilizar listas por comprensión para solucionarlo, pero ya fue.
Pueden cerrar el topic
Te lo dieron como aprobado, porque no importa si tira error (esta bien que falle cuando el find no encuentra un elemento) , ya que el manejo de errores no es parte de la materia.
Claro, mi idea seria fixearlo con una especie de IF. Pero es algo que no vimos todavia
No sé si te hacen usar si o si el find, pero se me ocurrió hacerlo así:
type Alumno = (String, [Integer])
esRegularEn :: [Alumno] -> String -> Bool
esRegularEn curso nombre = not $ null [al | al <- curso, (fst al) == nombre, length (snd al) >= 3]
La idea es buscar los alumnos que coincidan con ese nombre y ver si hubo al menos uno (si hay dos con el mismo nombre, uno desaprobado y uno aprobado va a devolver True, aunque se podría usar not $ null head [..] para fijarse nada mas el primero)