La evaluaci\u00f3n acumulada, las notas se calculan recursivamente con la siguiente funci\u00f3n<\/p>\n
\n N(1) = E(1)\n N(k) = m\u00e1ximo(E(k), 0.4*N(k-1)+0.6*E(k))\n<\/pre>\ndonde E(k) es la nota del examen k. Por ejemplo, si las notas de los ex\u00e1menes son [3,7,6,3] entonces las acumuladas son [3.0,7.0,6.4,4.4]<\/p>\n
Las notas e los ex\u00e1menes se encuentran en ficheros CSV<\/a> con los valores separados por comas. Cada l\u00ednea representa la nota de un alumno, el primer valor es el identificador del alumno y los restantes son sus notas. Por ejemplo, el contenido de examenes.csv<\/a> es<\/p>\n\n juaruigar,3,7,9,3\n evadialop,3,6,7,4\n carrodmes,0,9,8,7\n<\/pre>\nDefinir las funciones<\/p>\n
\n acumuladas :: [Double] -> [Double]\n notasAcumuladas :: FilePath -> FilePath -> IO ()\n<\/pre>\ntales que<\/p>\n
\n- (acumuladas xs) es la lista de las notas acumuladas (redondeadas con un decimal) de los notas de los ex\u00e1menes xs. Por ejemplo, <\/li>\n<\/ul>\n
\n acumuladas [2,5] == [2.0,5.0]\n acumuladas [5,2] == [5.0,3.2]\n acumuladas [3,7,6,3] == [3.0,7.0,6.4,4.4]\n acumuladas [3,6,7,3] == [3.0,6.0,7.0,4.6]\n<\/pre>\n
\n- (notasAcumuladas f1 f2) que escriba en el fichero f2 las notas acumuladas correspondientes a las notas de los ex\u00e1menes del fichero f1. Por ejemplo, al evaluar<\/li>\n<\/ul>\n
\n notasAcumuladas \"examenes.csv\" \"acumuladas.csv\"\n<\/pre>\nescribe en el fichero acumuladas.csv<\/p>\n
\n juaruigar,3.0,7.0,9.0,5.4\n evadialop,3.0,6.0,7.0,5.2\n carrodmes,0.0,9.0,8.4,7.6\n<\/pre>\nSoluciones<\/h4>\n\nimport Text.CSV\nimport Data.Either\n\n-- Definicio\u0144 de acumuladas\n-- ========================\n\nacumuladas :: [Double] -> [Double]\nacumuladas = reverse . aux . reverse\n where aux [] = []\n aux [x] = [x]\n aux (x:xs) = conUnDecimal (max x (0.6*x+0.4*y)) : y : ys \n where (y:ys) = aux xs\n\n-- conUnDecimal 7.26 == 7.3\n-- conUnDecimal 7.24 == 7.2\nconUnDecimal :: Double -> Double\nconUnDecimal x = fromIntegral (round (10*x)) \/ 10\n\n-- 1\u00aa definici\u00f3n de notasAcumuladas\n-- ================================\n\nnotasAcumuladas :: FilePath -> FilePath -> IO ()\nnotasAcumuladas f1 f2 = do\n cs <- readFile f1\n writeFile f2 (unlines (map ( acumuladaACadena\n . notaAAcumuladas\n . listaANota\n . cadenaALista\n )\n (contenidoALineasDeNotas cs)))\n\n-- \u03bb> contenidoALineasDeNotas \"juaruigar,3,7,6,3\\nevadialop,3,6,7,3\\n\\n \\n\"\n-- [\"juaruigar,3,7,6,3\",\"evadialop,3,6,7,3\"]\ncontenidoALineasDeNotas :: String -> [String]\ncontenidoALineasDeNotas = filter esLineaDeNotas . lines\n where esLineaDeNotas = elem ','\n\n-- cadenaALista \"a,b c,d\" == [\"a\",\"b c\",\"d\"]\n-- cadenaALista \"juaruigar,3,7,6,3\" == [\"juaruigar\",\"3\",\"7\",\"6\",\"3\"]\ncadenaALista :: String -> [String]\ncadenaALista cs\n | tieneComas cs = d : cadenaALista ds\n | otherwise = [cs]\n where (d,_:ds) = span (\/=',') cs\n tieneComas = elem ','\n\n-- \u03bb> listaANota [\"juaruigar\",\"3\",\"7\",\"6\",\"3\"]\n-- (\"juaruigar\",[3.0,7.0,6.0,3.0])\nlistaANota :: [String] -> (String,[Double])\nlistaANota (x:xs) = (x,map read xs)\n\n-- \u03bb> notaAAcumuladas (\"juaruigar\",[3.0,7.0,6.0,3.0])\n-- (\"juaruigar\",[3.0,7.0,6.4,4.4])\nnotaAAcumuladas :: (String,[Double]) -> (String,[Double])\nnotaAAcumuladas (x,xs) = (x, acumuladas xs)\n\n-- \u03bb> acumuladaACadena (\"juaruigar\",[3.0,7.0,6.4,4.4])\n-- \"juaruigar,3.0,7.0,6.4,4.4\"\nacumuladaACadena :: (String,[Double]) -> String\nacumuladaACadena (x,xs) =\n x ++ \",\" ++ tail (init (show xs))\n\n-- 2\u00aa definici\u00f3n de notasAcumuladas\n-- ================================\n\nnotasAcumuladas2 :: FilePath -> FilePath -> IO ()\nnotasAcumuladas2 f1 f2 = do\n cs <- readFile f1\n let (Right csv) = parseCSV f1 cs\n let notas = [xs | xs <- csv, length xs > 1]\n writeFile f2 (unlines (map ( acumuladaACadena\n . notaAAcumuladas\n . listaANota\n )\n notas))\n<\/pre>\n","protected":false},"excerpt":{"rendered":"La evaluaci\u00f3n acumulada, las notas se calculan recursivamente con la siguiente funci\u00f3n N(1) = E(1) N(k) = m\u00e1ximo(E(k), 0.4*N(k-1)+0.6*E(k)) donde E(k) es la nota del examen k. Por ejemplo, si las notas de los ex\u00e1menes son [3,7,6,3] entonces las acumuladas son [3.0,7.0,6.4,4.4] Las notas e los ex\u00e1menes se encuentran en ficheros CSV con los valores…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"footnotes":"","_jetpack_memberships_contains_paid_content":false},"categories":[7],"tags":[8,26,369,38,183,285,28,383,10,83,11,449,95,370,6,32,184,33,60,45,382,380],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3988"}],"collection":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/comments?post=3988"}],"version-history":[{"count":2,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3988\/revisions"}],"predecessor-version":[{"id":4015,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3988\/revisions\/4015"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/media?parent=3988"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/categories?post=3988"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/tags?post=3988"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}