Récapitulatif - Règles de remise

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 31 sur 64.

Défi

Moyen

Une boutique applique des règles de tarification à un prix, l’une après l’autre. Complétez la liste rules avec ces fonctions anonymes prenant un prix :

half : diviser le prix par 2
minus5 : soustraire 5, sans jamais descendre en dessous de 0
tax : ajouter 10 %
round : arrondir à un nombre entier avec round()

Complétez ensuite apply_rules(price, names) : appliquez dans l’ordre les règles nommées dans names et renvoyez une ligne par règle, after half: 20.00, suivie de final: et du prix final. Affichez chaque prix avec deux décimales.

Le code fourni lit le prix et une liste de noms de règles séparés par des virgules, puis affiche chaque ligne renvoyée.

Essayez vous-même

rules <- list(
  # Écrivez votre code ici
)

apply_rules <- function(price, names) {
  # Écrivez votre code ici
  character(0)
}

# Code d'entrée/sortie fourni : gardez-le tel quel
input <- suppressWarnings(readLines(file("stdin")))
cat(apply_rules(as.numeric(input[1]), strsplit(input[2], ",")[[1]]), sep = "\n")