Rangkuman: Denah Tempat Duduk

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 21 dari 64.

Tantangan

Sedang

Lengkapi seat_report(seats). seats adalah matriks berisi 0 (kursi kosong) dan 1 (kursi terisi), satu baris untuk setiap baris di teater. Kembalikan:

satu baris untuk setiap baris, Row 1: 2 free
Most free: row diikuti nomor baris dengan kursi kosong terbanyak (baris pertama jika ada beberapa baris dengan jumlah yang sama)
Occupied: diikuti persentase kursi yang terisi, dibulatkan ke bilangan bulat, dan %

Code yang disediakan membaca matriks dari satu baris: baris dipisahkan dengan ; dan nilai dalam satu baris dipisahkan dengan ,, jadi 1,2;3,4 adalah matriks dengan baris 1 2 dan 3 4. Code tersebut mencetak setiap baris yang dikembalikan.

Coba sendiri

seat_report <- function(seats) {
  # Tulis kodemu di sini
  character(0)
}

# Kode input/output yang disediakan: biarkan apa adanya
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")