복습 - 좌석 배치표

Coddy R 여정의 논리와 흐름 섹션에 포함된 레슨. 64개 중 21번째.

챌린지

중급

seat_report(seats)를 완성하세요. seats는 0(빈 좌석)과 1(사용 중인 좌석)로 이루어진 행렬이며, 극장의 각 행에 하나의 행이 대응합니다. 다음을 반환하세요:

각 행당 한 줄, Row 1: 2 free
가장 빈 좌석이 많은 행(동률인 경우 첫 번째 행)을 이어 붙인 Most free: row
사용 중인 좌석의 백분율을 정수로 반올림한 값을 이어 붙인 Occupied: 와 %

제공된 코드는 한 줄에서 행렬을 읽습니다. 행은 ;로 구분되고 행의 값은 ,로 구분되므로, 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")