Menu
Coddy logo textTech

Repaso: tabla de asientos

Parte de la sección Lógica y flujo del Journey de R de Coddy. Lección 21 de 64.

challenge icon

Desafío

Intermedio

Completa seat_report(seats). seats es una matriz de 0s (asientos libres) y 1s (asientos ocupados), una fila por cada fila del teatro. Devuelve:

  • una línea por fila, Row 1: 2 free
  • Most free: row seguido de la fila con más asientos libres (la primera cuando hay empate)
  • Occupied: seguido del porcentaje de asientos ocupados, redondeado a un número entero, y %

El código proporcionado lee una matriz desde una línea: las filas están separadas por ; y los valores de una fila por ,, por lo que 1,2;3,4 es una matriz con las filas 1 2 y 3 4. El código imprime cada línea devuelta.

Pruébalo tú mismo

seat_report <- function(seats) {
  # Escribe tu código aquí
  character(0)
}

# Código de entrada/salida suministrado: déjalo como está
input <- suppressWarnings(readLines(file("stdin")))
parse_matrix <- function(line) {
  rows <- strsplit(line, ";")[[1]]
  matrix(as.numeric(unlist(strsplit(rows, ","))), nrow = length(rows), byrow = TRUE)
}
cat(seat_report(parse_matrix(input[1])), sep = "\n")

Todas las lecciones de Lógica y flujo

Practica por tu cuenta: Compilador de R online