Suma de los máximos de los subconjuntos

5 Comentarios

1. Haskell

   import Data.List (sort) sumaMaximos :: [Integer] -> Integer sumaMaximos = sum . zipWith (\p x ->x * 2^p) [0..] . sort

   1 2 3 4

   import Data.List (sort)   sumaMaximos :: [Integer] -> Integer sumaMaximos = sum . zipWith (\p x ->x * 2^p) [0..] . sort

   Responder

2. Haskell

   import Data.List (sort, subsequences) -- Definición optimizada sumaMaximos :: [Integer] -> Integer sumaMaximos xs = sum $ zipWith (*) (iterate (*2) 1) (sort xs) -- Definición directa sumaMaximos2 :: [Integer] -> Integer sumaMaximos2 = sum . map maximum . tail . subsequences

   1 2 3 4 5 6 7 8 9

   import Data.List (sort, subsequences)   -- Definición optimizada sumaMaximos :: [Integer] -> Integer sumaMaximos xs = sum $ zipWith (*) (iterate (*2) 1) (sort xs)   -- Definición directa sumaMaximos2 :: [Integer] -> Integer sumaMaximos2 = sum . map maximum . tail . subsequences

   Responder

3. Haskell

   sumaMaximos :: [Integer] -> Integer sumaMaximos xs = operador 1 ys where ys = sort xs operador n [] = 0 operador n (x:xs) = n*x + operador (2*n) xs

   1 2 3 4 5

   sumaMaximos :: [Integer] -> Integer sumaMaximos xs = operador 1 ys   where ys                = sort xs         operador n []     = 0         operador n (x:xs) = n*x + operador (2*n) xs

   Responder

4. Haskell

   import Data.List (subsequences) sumaMaximos :: [Integer] -> Integer sumaMaximos [] = 0 sumaMaximos [x] = x sumaMaximos xs = sum (map maximum (tail (subsequences xs)))

   1 2 3 4 5 6

   import Data.List (subsequences)   sumaMaximos :: [Integer] -> Integer sumaMaximos []  = 0 sumaMaximos [x] = x sumaMaximos xs  = sum (map maximum (tail (subsequences xs)))

   Responder

5. Haskell

   import Data.List (nub, sort) -- Definimos primero las funciones que vamos a usar: subconjuntos :: [a] -> [[a]] subconjuntos [] = [[]] subconjuntos (x:xs) = [x:y | y <- ys] ++ ys where ys = subconjuntos xs elsubconjunto :: [a] -> [[a]] elsubconjunto xs = init (subconjuntos xs) dodos :: [Integer] dodos = [2^(n) | n <- [0..]] -- He ido mejorando la función sumaMaximos: -- 1ª Definición: sumaMaximos :: [Integer] -> Integer sumaMaximos xs = sum [maximum x | x <- elsubconjunto xs] -- 2ª Definición: sumaMaximos1 :: [Integer] -> Integer sumaMaximos1 xs = sum (map (maximum) (elsubconjunto xs)) -- 3ª Definición: sumaMaximos2 :: [Integer] -> Integer sumaMaximos2 xs = sum (zipWith (*) (sort (nub (map maximum (elsubconjunto xs)))) dodos) -- Tras comprobar que solamente hacía los dos primeros ejemplos, volví a -- intentarlo de otra forma. Observando el ejemplo inicial vi una -- relación entre los resultados, luego la 4ª definición es -- consecuencia de ello: sumaMaximos3 :: [Integer] -> Integer sumaMaximos3 xs = sum $ zipWith (*) (dodos) (nub (sort xs))

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

   import Data.List (nub, sort)   -- Definimos primero las funciones que vamos a usar: subconjuntos :: [a] -> [[a]] subconjuntos []     = [[]] subconjuntos (x:xs) = [x:y | y <- ys] ++ ys   where ys = subconjuntos xs   elsubconjunto :: [a] -> [[a]] elsubconjunto xs = init (subconjuntos xs)   dodos :: [Integer] dodos = [2^(n) | n <- [0..]]   -- He ido mejorando la función sumaMaximos:   -- 1ª Definición: sumaMaximos :: [Integer] -> Integer sumaMaximos xs = sum [maximum x | x <- elsubconjunto xs]   -- 2ª Definición: sumaMaximos1 :: [Integer] -> Integer sumaMaximos1 xs = sum (map (maximum) (elsubconjunto xs))   -- 3ª Definición: sumaMaximos2 :: [Integer] -> Integer sumaMaximos2 xs =   sum (zipWith (*) (sort (nub (map maximum (elsubconjunto xs)))) dodos)   -- Tras comprobar que solamente hacía los dos primeros ejemplos, volví a -- intentarlo de otra forma. Observando el ejemplo inicial vi una -- relación entre los resultados, luego la 4ª definición es -- consecuencia de ello: sumaMaximos3 :: [Integer] -> Integer sumaMaximos3 xs = sum $ zipWith (*) (dodos) (nub (sort xs))

   Responder