Recapitulação - Vetor de preços

Parte da seção Fundamentos do Journey de R da Coddy — lição 60 de 78.

Desafio

Fácil

Você receberá duas linhas de entrada:

Uma lista de preços originais separada por vírgulas (ex: 100,200,150,80)
Uma porcentagem de desconto como um número inteiro (ex: 20 para 20%)

Realize as seguintes operações:

Crie um vetor a partir dos preços separados por vírgulas
O gerente da loja notou que o terceiro item estava com o preço errado. Altere-o para 125
Aplique o desconto a todos os preços (multiplique por (100 - discount) / 100)
Imprima o vetor de preços com desconto
Imprima o total de todos os preços com desconto usando sum()
Imprima a média dos preços com desconto usando mean()

Por exemplo, se as entradas forem:

100,200,150,80
20

A saída deve ser:

[1]  80 160 100  64
[1] 404
[1] 101

Explicação: O terceiro preço é alterado para 125, então um desconto de 20% é aplicado (multiplicado por 0.8), resultando nos preços 80, 160, 100 e 64.

Experimente você mesmo

# Ler entrada
con <- file("stdin", "r")
prices_input <- suppressWarnings(readLines(con, n = 1))
discount <- suppressWarnings(readLines(con, n = 1))
close(con)

# Converter entradas
original_prices <- as.numeric(unlist(strsplit(prices_input, ",")))
discount_percent <- as.numeric(discount)

# TODO: Escreva seu código abaixo
# 1. Altere o terceiro item para 125
# 2. Aplique o desconto a todos os preços
# 3. Imprima o vetor de preços com desconto
# 4. Imprima o total usando sum()
# 5. Imprima a média usando mean()