Ôn tập: Sơ đồ chỗ ngồi

Thuộc phần Logic và luồng điều khiển trong hành trình R của Coddy. Bài học 21 trên 64.

Thử thách

Trung bình

Hoàn thiện seat_report(seats). seats là một ma trận gồm các số 0 (ghế trống) và số 1 (ghế đã có người ngồi), mỗi hàng ứng với một hàng ghế trong rạp hát. Trả về:

một dòng cho mỗi hàng, Row 1: 2 free
Most free: row theo sau là hàng có nhiều ghế trống nhất (nếu nhiều hàng có cùng số ghế trống, chọn hàng đầu tiên)
Occupied: theo sau là tỷ lệ phần trăm ghế đã có người ngồi, được làm tròn thành số nguyên, và %

Code được cung cấp đọc một ma trận từ một dòng: các hàng được phân tách bằng ; và các giá trị trong mỗi hàng được phân tách bằng ,, vì vậy 1,2;3,4 là một ma trận gồm các hàng 1 2 và 3 4. Code in ra từng dòng được trả về.

Tự làm thử

seat_report <- function(seats) {
  # Viết code của bạn ở đây
  character(0)
}

# Đoạn code đầu vào/đầu ra có sẵn: giữ nguyên
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")