Récapitulatif - Plan de salle

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 21 sur 64.

Défi

Moyen

Complétez seat_report(seats). seats est une matrice de 0 (places libres) et de 1 (places occupées), avec une ligne par rangée du théâtre. Renvoyez :

une ligne par rangée, Row 1: 2 free
Most free: row suivi de la rangée ayant le plus de places libres (la première en cas d’égalité)
Occupied: suivi du pourcentage de places occupées, arrondi à l’entier le plus proche, et de %

Le code fourni lit une matrice sur une ligne : les rangées sont séparées par ; et les valeurs d’une rangée par , ; ainsi, 1,2;3,4 est une matrice dont les rangées sont 1 2 et 3 4. Le code affiche chaque ligne renvoyée.

Essayez vous-même

seat_report <- function(seats) {
  # Écrivez votre code ici
  character(0)
}

# Code d'entrée/sortie fourni : gardez-le tel quel
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")