Project Euler - Problema 8 en R

Continuamos con los problemas planteados en Project Euler.

Problema

The four adjacent digits in the 1000-digit number that have the greatest product are 9 × 9 × 8 × 9 = 5832.

73167176531330624919225119674426574742355349194934
96983520312774506326239578318016984801869478851843
85861560789112949495459501737958331952853208805511
12540698747158523863050715693290963295227443043557
66896648950445244523161731856403098711121722383113
62229893423380308135336276614282806444486645238749
30358907296290491560440772390713810515859307960866
70172427121883998797908792274921901699720888093776
65727333001053367881220235421809751254540594752243
52584907711670556013604839586446706324415722155397
53697817977846174064955149290862569321978468622482
83972241375657056057490261407972968652414535100474
82166370484403199890008895243450658541227588666881
16427171479924442928230863465674813919123162824586
17866458359124566529476545682848912883142607690042
24219022671055626321111109370544217506941658960408
07198403850962455444362981230987879927244284909188
84580156166097919133875499200524063689912560717606
05886116467109405077541002256983155200055935729725
71636269561882670428252483600823257530420752963450

Find the thirteen adjacent digits in the 1000-digit number that have the greatest product. What is the value of this product?

Los 4 dígitos adyacentes en este número de 1.000 dígitos que tiene el producto más alto son: 9 × 9 × 8 × 9 = 5832.
Encuentra los 13 dígitos adyacentes en este número de 1.000 dígitos que tienen el producto más alto. ¿Cuál es el valor de ese producto?

Solución

Añadimos la cadena de texto mediante la función paste.

x <- paste("73167176531330624919225119674426574742355349194934
            96983520312774506326239578318016984801869478851843
            85861560789112949495459501737958331952853208805511
            12540698747158523863050715693290963295227443043557
            66896648950445244523161731856403098711121722383113
            62229893423380308135336276614282806444486645238749
            30358907296290491560440772390713810515859307960866
            70172427121883998797908792274921901699720888093776
            65727333001053367881220235421809751254540594752243
            52584907711670556013604839586446706324415722155397
            53697817977846174064955149290862569321978468622482
            83972241375657056057490261407972968652414535100474
            82166370484403199890008895243450658541227588666881
            16427171479924442928230863465674813919123162824586
            17866458359124566529476545682848912883142607690042
            24219022671055626321111109370544217506941658960408
            07198403850962455444362981230987879927244284909188
            84580156166097919133875499200524063689912560717606
            05886116467109405077541002256983155200055935729725
            71636269561882670428252483600823257530420752963450")
x <- gsub("\n", "", x)
x <- as.numeric(strsplit(x, "")[[1]])
product <- 0
for (i in 1:1000) {
  product <- c(product, prod(x[i:(i + 12)]))
}
max(product, na.rm = TRUE) 

[1] 23514624000

Notas

Primero eliminamos de la cadena de texto los saltos de línea. Después convertimos la cadena de texto en un vector de 1.000 elementos. Finalmente creamos un bucle que guarda en el vector product los productos de los sucesivos 13 números adyacentes. Extraemos el máximo elemento del mismo.

Referencias

• Problem 8
• Otros problemas Euler en este blog

Total acumulado de una columna en función de otra en Access

Problema

Queremos crear un total acumulado de una columna en función de otra. En nuestro ejemplo calcularemos un total acumulado de los precios en función de categoría. Es decir empezará a sumar desde cero al cambiar de categoría. Por tanto el total al iniciar la categoría es igual al precio de esa fila.

Solución

Empleamos una consulta que incluye una subconsulta.

SELECT T1.IdCategoría, 
 T1.NombreProducto, 
 T1.IdProducto, 
 T1.PrecioUnidad, 
 (SELECT Sum(T2.PrecioUnidad) 
  FROM Productos AS T2
  WHERE  T2.IdCategoría = T1.IdCategoría 
  AND T2.IdProducto <= T1.IdProducto) 
  AS Total_Categoría
 FROM Productos AS T1 

Resultado

El resultado saldrá desordenado.

Será necesario ordenar el resultado de la consulta primero por el Total_Categoría y luego por Categoría. Otra opción es utilizar el siguiente código.

SELECT *
FROM (SELECT T1.IdCategoría, 
T1.NombreProducto, 
T1.IdProducto, 
T1.PrecioUnidad, 
(SELECT Sum(Productos.PrecioUnidad) AS Total   
FROM Productos   
WHERE  Productos.IdCategoría = T1.IdCategoría 
 AND Productos.IdProducto <= T1.IdProducto ) AS Total 
FROM Productos AS T1) AS T2
ORDER BY T2.IdCategoría, Total;

Transponer un rango de celdas en Excel

Problema

Queremos transponer un rango en Excel.

Soluciones

Mediante el menú pegar

1. Copiamos el rango y hacemos clic en la flecha debajo de pegar y elegimos la opción transponer.

2. O bien copiamos el rango y clic en Ctrl+Alt+V y seleccionamos transponer.

Con la fórmula TRANSPONER

Este método es útil si queremos el rango transpuesto vinculado al original. Así se actualizará si el original cambia.

1. Copiamos y transponemos el rango como en la opción anterior

2. Seleccionamos todo el rango transpuesto: F1:R4
3. En la barra de fórmulas escribimos =TRANSPONER(rango)y presionamos Ctrl+Mayú+Entrar pues se trata de una fórmula matricial. En nuestro ejemplo: {=TRANSPONER(A1:D13)}

Guardar automáticamente en Excel una copia de seguridad de la versión anterior

Problema

Al guardar un fichero de Excel, queremos que automáticamente se guarde una copia de seguridad de la versión anterior del mismo.

Solución

1. En la ficha Archivo, clic en Guardar como o presionamos F12.
2. En el menú Herramientas, hacemos clic en Opciones generales

3. Seleccionamos Crear siempre una copia de seguridad

Resultado

Excel guardará automáticamente cada vez que guardemos una copia de seguridad con la extensión *.xlk del fichero en la misma ubicación del mismo. Esta opción se aplica solamente al libro de Excel donde la hayamos configurado.

Añadir una columna con el número de ocurrencias en Excel

Problema

Queremos añadir una columna con el número de ocurrencias de otra columna. El equivalente en Excel a lo que hicimos en la entrada anterior con Access y SQL. Esta vez, es mucho más sencillo.

Solución

En la celda F2 copiamos la siguiente fórmula y arrastramos el controlador de rellano hacia abajo. Con la función CONTAR.SI añadimos la columna A IdPedido en el argumento rango y los valores de cada fila A1, A2,... de IdPedido en el argumento criterio.<

=CONTAR.SI($A$2:$A$2156;A2)

Resultado

Entradas relacionadas

• Ordenar un data frame por la frecuencia de una columna en R
• Número de ocurrencias acumulado de una lista en Excel

Añadir una columna con el número de ocurrencias sin agrupar en Access

Problema

Queremos añadir una columna con el número de ocurrencias de otra columna sin agrupar el resultados. Tomamos como ejemplo la tabla Detalles de pedidos de la base de datos Neptuno.mdb. Queremos añadir una columna n, que cuente el número de filas —de productos— de cada pedido.

Solución

En Vista SQL, creamos una subconsulta para obtener el número de productos por pedido y la llamamos T2. Unimos la tabla Detalles de pedidos con esa subconsulta mediante el campo Id.Pedido, añadiendo el campo T2.n con el número de ocurrencias.

SELECT [Detalles de pedidos].IdPedido, 
    [Detalles de pedidos].IdProducto, 
    [Detalles de pedidos].PrecioUnidad, 
    [Detalles de pedidos].Cantidad, 
    [Detalles de pedidos].Descuento, 
    T2.n
FROM [Detalles de pedidos] 
INNER JOIN 
(SELECT [Detalles de pedidos].IdPedido, 
  Count([Detalles de pedidos].IdPedido) AS n
FROM [Detalles de pedidos]
GROUP BY [Detalles de pedidos].IdPedido)  AS T2 
ON [Detalles de pedidos].IdPedido = T2.IdPedido;

Resultado

En la columna n tenemos el número de productos de cada pedido. Sería el equivalente en Excel a usar la función CONTAR.SI con la columna IdPedido en el argumento rango y los valores de cada fila de IdPedido en el argumento criterio.

Entradas relacionadas

• Ordenar un data frame por la frecuencia de una columna en R

Seleccionar con sqldf un subconjunto de filas de una columna en un data frame diferente

Problema

Supongamos que tenemos los siguientes data frames.

#A
  a1  a2
1  1 101
2  2 102
3  3 103
4  4 104

#B
  a1  a2
1  1 101
2  2 102
3  3 103
4  4 104

A <-  data.frame(a1 = c(1:4), a2 = c(101:104))
B <-  data.frame(b1 = c(1:2), b2 = c(55,56))

Deseamos obtener el siguiente subconjunto de filas del data frame A, en el que la columna A$a1 contenga los elementos de la columna B%b1 del data frame B. Pero en lugar del paquete base, como hacemos a continuación, queremos emplear el paquete sqldf.

A[A$a1 %in% B$b1, ]

 a1  a2
1  1 101
2  2 102

Solución

Usamos la función paste dos veces. Para concatenar los elementos del vector B$b1 separado por comas, y después para concatenar la cadena de texto deseada: [1] "select * from A where a1 in( 1,2 )"

library(sqldf)
sqldf(paste("select * from A where a1 in(", paste(B$b1, collapse = ","), ")"))

Otras dos alternativas propuestas por G. Grothendieck son:

# 1
fn$sqldf(" select * from A where a1 in ( `toString(B$b1)` ) ") 
# 2
sqldf("select A.* from A join B on A.a1 = B.b1")

Resultado

 a1  a2
1  1 101
2  2 102

Referencias

• stackoverflow

Entrecomillar palabras de una lista y separarlas con comas en Notepad++

Problema

Deseamos entrecomillar cada palabra de una lista, y añadir una coma entre ellas. Así podremos, por ejemplo, introducirlo en nuestras clausulas de SQL.

Solución

1. Hacemos clic en Ctrl+H, o mediante la barra de menú Search > Replace.
2. Escribimos en Find what: .+
3. Y en Replace with:'$0',
4. Marcamos la casilla Regular expression y presionamos Replace All.

Resultado

Si queremos eliminar los saltos de línea:

Hacemos clic en Ctrl+H, o mediante la barra de menú Search > Replace.

Escribimos en Find what: \r\n

Y en Replace with: lo dejamos en blanco.

Marcamos la casilla Regular expression y presionamos Replace All.

Entradas relacionadas

• Reemplazar los saltos de línea por comas con Notepad++

Reemplazar los saltos de línea por comas con Notepad++

Problema

Supongamos que copiamos en Notepad++ una lista separada por saltos de línea y deseamos reemplazarlos por comas. Así podremos, por ejemplo, introducirlo en nuestras clausulas de SQL.

Solución

1. Hacemos clic en Ctrl+H, o mediante la barra de menú Search > Replace.

2. Escribimos en Find what: [\r\n]+
3. Y en Replace with: ,
4. Marcamos la casilla Regular expression y presionamos Replace All.

Resultado

Referencias

• stackoverflow