{"id":2279,"date":"2012-11-08T21:22:56","date_gmt":"2012-11-08T21:22:56","guid":{"rendered":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/?p=2279"},"modified":"2013-03-08T05:47:40","modified_gmt":"2013-03-08T05:47:40","slug":"i1m2012-1%c2%ba-examen-de-la-evaluacion-continua","status":"publish","type":"post","link":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/i1m2012-1%c2%ba-examen-de-la-evaluacion-continua\/","title":{"rendered":"I1M2012: 1\u00ba examen de la evaluaci\u00f3n continua"},"content":{"rendered":"

En la clase de hoy de Inform\u00e1tica de 1\u00ba del Grado en Matem\u00e1ticas<\/a> se ha realizado el 1\u00ba examen de la evaluaci\u00f3n continua.<\/p>\n

\nA continuaci\u00f3n se muestra el examen junto con su soluci\u00f3n:<\/p>\n

\r\n-- Inform\u00e1tica (1\u00ba del Grado en Matem\u00e1ticas)\r\n-- 1\u00ba examen de evaluaci\u00f3n continua (8 de noviembre de 2012)\r\n-- ---------------------------------------------------------------------\r\n\r\n-- ---------------------------------------------------------------------\r\n-- Ejercicio 1. Definir la funci\u00f3n primosEntre tal que (primosEntre x y)\r\n-- es la lista de los n\u00famero primos entre x e y (ambos inclusive). Por\r\n-- ejemplo, \r\n--    primosEntre 11 44  ==  [11,13,17,19,23,29,31,37,41,43]\r\n-- ---------------------------------------------------------------------\r\n\r\nprimosEntre x y = [n | n <- [x..y], primo n]\r\n\r\n-- (primo x) se verifica si x es primo. Por ejemplo,\r\n--    primo 30  == False\r\n--    primo 31  == True  \r\nprimo n = factores n == [1, n]\r\n\r\n-- (factores n) es la lista de los factores del n\u00famero n. Por ejemplo,\r\n--    factores 30  \\valor  [1,2,3,5,6,10,15,30]  \r\nfactores n = [x | x <- [1..n], n `mod` x == 0]\r\n\r\n-- ---------------------------------------------------------------------\r\n-- Ejercicio 2. Definir la funci\u00f3n posiciones tal que (posiciones x ys)\r\n-- es la lista de las posiciones ocupadas por el elemento x en la lista\r\n-- ys. Por ejemplo, \r\n--    posiciones 5 [1,5,3,5,5,7]  ==  [1,3,4]\r\n--    posiciones 'a' \"Salamanca\"  ==  [1,3,5,8]\r\n-- ---------------------------------------------------------------------\r\n\r\nposiciones x xs = [i | (x',i) <- zip xs [0..], x == x']\r\n\r\n-- ---------------------------------------------------------------------\r\n-- Ejercicio 3. El tiempo se puede representar por pares de la forma\r\n-- (m,s) donde m representa los minutos y s los segundos. Definir la\r\n-- funci\u00f3n duracion tal que (duracion t1 t2) es la duraci\u00f3n del\r\n-- intervalo de tiempo que se inicia en t1 y finaliza en t2. Por\r\n-- ejemplo, \r\n--    duracion (2,15) (6,40)  ==  (4,25)\r\n--    duracion (2,40) (6,15)  ==  (3,35)\r\n-- ---------------------------------------------------------------------\r\n\r\ntiempo (m1,s1) (m2,s2)\r\n       | s1 <= s2  = (m2-m1,s2-s1)\r\n       | otherwise = (m2-m1-1,60+s2-s1)\r\n\r\n-- ---------------------------------------------------------------------\r\n-- Ejercicio 4. Definir la funci\u00f3n cortas tal que (cortas xs) es la\r\n-- lista de las palabras m\u00e1s cortas (es decir, de menor longitud) de la\r\n-- lista xs. Por ejemplo,\r\n--    ghci> cortas [\"hoy\", \"es\", \"un\", \"buen\", \"dia\", \"de\", \"sol\"]\r\n--    [\"es\",\"un\",\"de\"]\r\n-- ---------------------------------------------------------------------\r\n\r\ncortas xs = [x | x <- xs, length x == n]\r\n    where n = minimum [length x | x <- xs]\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
En la clase de hoy de Inform\u00e1tica de 1\u00ba del Grado en Matem\u00e1ticas se ha realizado el 1\u00ba examen de la evaluaci\u00f3n continua. A continuaci\u00f3n se muestra el examen junto con su soluci\u00f3n: — Inform\u00e1tica (1\u00ba del Grado en Matem\u00e1ticas) — 1\u00ba examen de evaluaci\u00f3n continua (8 de noviembre de 2012) — ——————————————————————— — ———————————————————————…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","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":[1],"tags":[298],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_likes_enabled":false,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/2279"}],"collection":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/comments?post=2279"}],"version-history":[{"count":3,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/2279\/revisions"}],"predecessor-version":[{"id":2755,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/2279\/revisions\/2755"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/media?parent=2279"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/categories?post=2279"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/tags?post=2279"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}