復習 - 座席表

CoddyのRジャーニー「ロジックとフロー」セクションの一部。レッスン 21/64。

チャレンジ

中級

seat_report(seats)を完成させてください。seatsは、0（空席）と1（使用中の席）で構成された行列で、劇場の各列に1行ずつ対応します。次の内容を返してください。

各行につき1行：Row 1: 2 free
Most free: row に続けて、空席が最も多い行の番号（複数ある場合は最初の行）
Occupied: に続けて、使用中の席の割合を整数に丸めた値と%

提供されたコードは、1行から行列を読み取ります。行は;で区切り、各行の値は,で区切るため、1,2;3,4は1 2と3 4を行とする行列です。コードは返された各行を出力します。

自分で試してみよう

seat_report <- function(seats) {
  # ここにコードを書いてください
  character(0)
}

# 提供された入力/出力コード：そのままにしておいてください
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")