Cálculo de aprobados

2 Comentarios

1. Haskell

   import Data.Array aprobados :: (Num a, Ord a) => Array Int (String,a) -> Maybe [String] aprobados p = if aux == [] then Nothing else Just aux where aux = [xs | (xs,n) <- elems p, n>=5]

   1 2 3 4 5

   import Data.Array   aprobados :: (Num a, Ord a) => Array Int (String,a) -> Maybe [String] aprobados p = if aux == [] then Nothing else Just aux where aux = [xs | (xs,n) <- elems p, n>=5]

   Responder

2. Haskell

   aprobados :: (Num a, Ord a) => Array Int (String,a) -> Maybe [String] aprobados p | null xs = Nothing | otherwise = Just (map fst xs) where xs = filter ((>=5).snd) (elems p)

   1 2 3 4

   aprobados :: (Num a, Ord a) => Array Int (String,a) -> Maybe [String] aprobados p | null xs = Nothing             | otherwise = Just (map fst xs)     where xs = filter ((>=5).snd) (elems p)

   Responder