Enfocas mal el problema. En haskell no se usa tanto el if/else como en otros lenguajes. Cuando se trabaja con listas hay que pensar más en aplicar filtros (filter
) y otras funciones que admiten predicados (lo que dices condicionales).
funcion1 :: [(String, Int, Int, Int)] -> (Int, Int)
funcion1 xs = (length $ filter (>=4) avgs, length $ filter (<4) avgs)
where
avg (_, nota1, nota2, nota3) = (nota1 + nota2 + nota3) `div` 3
avgs = map avg xs
Hemos creado la función avg
que calcula la media y la hemos aplicado para obtener un listado de medias avgs
. A este listado se aplican dos filtros, (>=4)
y (<4)
, para obtener las dos sublistas cuyas longitudes nos darán el conteo que buscamos.
Como los dos filtros son excluyentes (los elementos que cumplen un filtro no cumplen el otro), lo que tenemos realmente es una partición de la lista y podemos hacerlo algo más simple aplicando la funcion partition
del módulo Data.List
:
import Data.List (partition)
funcion1 :: [(String, Int, Int, Int)] -> (Int, Int)
funcion1 xs = ( (length . fst) part, (length . snd) part)
where
avg (_, nota1, nota2, nota3) = (nota1 + nota2 + nota3) `div` 3
avgs = map avg xs
part = partition (>=4) avgs
Ya sólo falta dejarlo bonito creando una función maptuple
para hacer un map en una tupla:
import Data.List (partition)
funcion1 :: [(String, Int, Int, Int)] -> (Int, Int)
funcion1 xs = maptuple length part
where
avg (_, nota1, nota2, nota3) = (nota1 + nota2 + nota3) `div` 3
avgs = map avg xs
part = partition (>=4) avgs
maptuple f (a,b) = (f a, f b)
Incluso más bonito aún, juntando todo:
import Data.List (partition)
funcion1 :: [(String, Int, Int, Int)] -> (Int, Int)
funcion1 = maptuple length . partition (>=4) . map avg
where
avg (_, nota1, nota2, nota3) = (nota1 + nota2 + nota3) `div` 3
maptuple f (a,b) = (f a, f b)
(length xs, length xs)
. Si introduces 4 elementos, siempre dará(3, 3)
,(Int, Int)
, sino algo como(String, Int, Int)
o(String, (Int, Int))
. Las funciones sólo tienen una única salida (y una única entrada).