Récapitulatif - Vecteur de prix

Fait partie de la section Fondamentaux du Journey R de Coddy — leçon 60 sur 78.

Défi

Facile

Vous recevrez deux lignes d'entrée :

Une liste de prix originaux séparés par des virgules (par exemple, 100,200,150,80)
Un pourcentage de remise sous forme de nombre entier (par exemple, 20 pour 20 %)

Effectuez les opérations suivantes :

Créez un vecteur à partir des prix séparés par des virgules
Le responsable du magasin a remarqué que le troisième article était mal étiqueté. Changez-le en 125
Appliquez la remise à tous les prix (multipliez par (100 - discount) / 100)
Affichez le vecteur des prix remisés
Affichez le total de tous les prix remisés en utilisant sum()
Affichez le prix remisé moyen en utilisant mean()

Par exemple, si les entrées sont :

100,200,150,80
20

La sortie devrait être :

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

Explication : Le troisième prix est remplacé par 125, puis une remise de 20 % est appliquée (multiplication par 0.8), ce qui donne les prix 80, 160, 100 et 64.

Essayez vous-même

# Lire l'entrée
con <- file("stdin", "r")
prices_input <- suppressWarnings(readLines(con, n = 1))
discount <- suppressWarnings(readLines(con, n = 1))
close(con)

# Convertir les entrées
original_prices <- as.numeric(unlist(strsplit(prices_input, ",")))
discount_percent <- as.numeric(discount)

# TODO: Écrivez votre code ci-dessous
# 1. Changer le troisième article à 125
# 2. Appliquer la remise à tous les prix
# 3. Afficher le vecteur des prix remisés
# 4. Afficher le total en utilisant sum()
# 5. Afficher la moyenne en utilisant mean()