Menu
Coddy logo textTech

Recapitulação - Tabela de Assentos

Parte da seção Lógica e Fluxo do Journey de R da Coddy. Lição 21 de 64.

challenge icon

Desafio

Médio

Complete seat_report(seats). seats é uma matriz de 0s (assentos livres) e 1s (assentos ocupados), uma linha para cada fileira do teatro. Retorne:

  • uma linha por fileira, Row 1: 2 free
  • Most free: row seguido pela fileira com mais assentos livres (a primeira quando houver empate)
  • Occupied: seguido pela porcentagem de assentos ocupados, arredondada para um número inteiro, e %

O código fornecido lê uma matriz a partir de uma linha: as fileiras são separadas por ; e os valores de uma fileira por ,, então 1,2;3,4 é uma matriz com as fileiras 1 2 e 3 4. O código imprime cada linha retornada.

Experimente você mesmo

seat_report <- function(seats) {
  # Escreva seu código aqui
  character(0)
}

# Código de entrada/saída fornecido: mantenha-o como está
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")

Todas as lições de Lógica e Fluxo

Pratique por conta própria: Compilador de R online