Repaso: reglas de descuento

Parte de la sección Lógica y flujo del Journey de R de Coddy. Lección 31 de 64.

Desafío

Intermedio

Una tienda aplica reglas de precios a un precio, una tras otra. Completa la lista rules con estas funciones anónimas de un precio:

half: divide el precio entre 2
minus5: resta 5, pero nunca baja de 0
tax: añade un 10 %
round: redondea a un número entero con round()

Después, completa apply_rules(price, names): aplica en orden las reglas indicadas en names y devuelve una línea por regla, after half: 20.00, seguida de final: y el precio final. Muestra cada precio con dos decimales.

El código proporcionado lee el precio y una lista de nombres de reglas separados por comas, e imprime cada línea devuelta.

Pruébalo tú mismo

rules <- list(
  # Escribe tu código aquí
)

apply_rules <- function(price, names) {
  # Escribe tu código aquí
  character(0)
}

# Código de entrada/salida suministrado: déjalo como está
input <- suppressWarnings(readLines(file("stdin")))
cat(apply_rules(as.numeric(input[1]), strsplit(input[2], ",")[[1]]), sep = "\n")