Menu
Coddy logo textTech

Ripasso - Schema dei posti a sedere

Fa parte della sezione Logica e flusso del percorso R di Coddy. Lezione 21 di 64.

challenge icon

Sfida

Medio

Completa seat_report(seats). seats è una matrice di 0 (posti liberi) e 1 (posti occupati), una riga per ogni fila del teatro. Restituisci:

  • una riga per fila, Row 1: 2 free
  • Most free: row seguito dalla fila con il maggior numero di posti liberi (la prima in caso di parità)
  • Occupied: seguito dalla percentuale di posti occupati, arrotondata a un numero intero, e %

Il codice fornito legge una matrice da una riga: le righe sono separate da ; e i valori di una riga da ,, quindi 1,2;3,4 è una matrice con le righe 1 2 e 3 4. Il codice stampa ogni riga restituita.

Provalo tu

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

# Código de entrada/salida proporcionado: mantenlo tal 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")

Tutte le lezioni di Logica e flusso

Esercitati da solo: Compilatore R online