Los intervalos se pueden representar por pares de enteros (a,b) con a < b. Los elementos del intervalo (2,5) son 2, 3, 4 y 5; por tanto, su longitud es 4. Para calcular la suma de los longitudes de una lista de intervalos hay que tener en cuenta que si hay intervalos superpuestos sus elementos deben de contarse s\u00f3lo una vez. Por ejemplo, la suma de los intervalos de [(1,4),(7,10),(3,5)] es 7 ya que, como los intervalos (1,4) y (3,5) se solapan, los podemos ver como el intervalo (1,5) que tiene una longitud de 4.<\/p>\n
Definir la funci\u00f3n<\/p>\n
\n sumaIntervalos :: [(Int, Int)] -> Int\n<\/pre>\ntal que (sumaIntervalos xs) es la suma de las longitudes de los intervalos de xs contando los superpuestos s\u00f3lo una vez. Por ejemplo,<\/p>\n
\n sumaIntervalos [(1, 5)] == 4\n sumaIntervalos [(0,1), (-1,0)] == 2\n sumaIntervalos [(0,1), (0,2), (1,2)] == 2 \n sumaIntervalos [(1, 5), (6, 10)] == 8\n sumaIntervalos [(1, 5), (5, 10)] == 9\n sumaIntervalos [(1, 5), (1, 5)] == 4\n sumaIntervalos [(1, 4), (7, 10), (3, 5)] == 7\n<\/pre>\nSoluciones<\/h4>\n\nimport Data.List (nub, sort)\n\n-- 1\u00aa soluci\u00f3n\nsumaIntervalos :: [(Int, Int)] -> Int\nsumaIntervalos = aux . sort\n where aux [] = 0\n aux [(a,b)] = b - a\n aux ((a,b):(c,d):xs) | b < c = b - a + aux ((c,d):xs)\n | otherwise = aux ((a,max b d):xs)\n\n-- 2\u00aa soluci\u00f3n\nsumaIntervalos2 :: [(Int, Int)] -> Int\nsumaIntervalos2 = length . nub . concatMap f\n where f (a, b) = [a..b - 1]\n<\/pre>\nOtras soluciones<\/h4>\n\n- Se pueden escribir otras soluciones en los comentarios.\n
- El c\u00f3digo se debe escribir entre una l\u00ednea con <pre lang="haskell"> y otra con <\/pre>\n<\/ul>\n
Pensamiento<\/h4>\n\n\u00abSi la gente no cree que las matem\u00e1ticas son simples, es s\u00f3lo porque no se dan cuenta de lo complicada que es la vida.\u00bb <\/p>\n