Rückblick – Sitzplan

Teil des Abschnitts Logik und Ablaufsteuerung der R-Journey von Coddy. Lektion 21 von 64.

Aufgabe

Mittel

Vervollständige seat_report(seats). seats ist eine Matrix aus 0 (freien Plätzen) und 1 (belegten Plätzen), eine Zeile pro Reihe des Theaters. Gib Folgendes zurück:

eine Zeile pro Reihe, Row 1: 2 free
Most free: row , gefolgt von der Reihe mit den meisten freien Plätzen (bei Gleichstand die erste)
Occupied: , gefolgt vom Prozentsatz der belegten Plätze, auf eine ganze Zahl gerundet, und %

Der bereitgestellte Code liest eine Matrix aus einer Zeile ein: Die Reihen werden durch ; und die Werte einer Reihe durch , getrennt, daher ist 1,2;3,4 eine Matrix mit den Reihen 1 2 und 3 4. Der Code gibt jede zurückgegebene Zeile aus.

REQUIRED OUTPUT FORMAT: [Your translated content here]

Probier es selbst

seat_report <- function(seats) {
  # Schreibe deinen Code hier
  character(0)
}

# Mitgelieferter Ein-/Ausgabe-Code: belasse ihn wie er ist
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")