Tekrar - Oturma Planı

Coddy'nin R Journey'sinin Mantık ve Akış bölümünün bir parçası. Ders 21 / 64.

Görev

Orta

seat_report(seats) işlevini tamamla. seats, tiyatronun her sırası için bir satır olacak şekilde, 0'lardan (boş koltuklar) ve 1'lerden (dolu koltuklar) oluşan bir matristir. Şunları döndür:

her sıra için bir satır: Row 1: 2 free
Most free: row ifadesinin ardından en fazla boş koltuğa sahip sıra (birden fazla sıra eşit olduğunda ilk olan)
Occupied: ifadesinin ardından, dolu koltukların en yakın tam sayıya yuvarlanmış yüzdesi ve %

Sağlanan kod, tek bir satırdan matris okur: satırlar ; ile, bir satırdaki değerler ise , ile ayrılır; bu nedenle 1,2;3,4, 1 2 ve 3 4 satırlarına sahip bir matristir. Kod, döndürülen her satırı yazdırır.

Kendin dene

seat_report <- function(seats) {
  # Kodunuzu buraya yazın
  character(0)
}

# Sağlanan girdi/çıktı kodu: olduğu gibi bırakı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")