Powtórka – plan miejsc

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 21 z 64.

Wyzwanie

Średni

Uzupełnij seat_report(seats). seats to macierz zer (wolne miejsca) i jedynek (zajęte miejsca), po jednym wierszu na każdy rząd teatru. Zwróć:

jeden wiersz na każdy rząd, Row 1: 2 free
Most free: row z numerem rzędu, w którym jest najwięcej wolnych miejsc (pierwszy z nich, jeśli jest ich kilka)
Occupied: z procentem zajętych miejsc zaokrąglonym do liczby całkowitej oraz %

Dostarczony kod odczytuje macierz z jednego wiersza: wiersze są oddzielone przez ;, a wartości w wierszu przez ,, więc 1,2;3,4 to macierz z wierszami 1 2 i 3 4. Kod wypisuje każdy zwrócony wiersz.

Spróbuj swoich sił

seat_report <- function(seats) {
  # Wpisz tutaj swój kod
  character(0)
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
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")