Powtórka — reguły rabatowe

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 31 z 64.

Wyzwanie

Średni

Sklep stosuje reguły cenowe do ceny, jedna po drugiej. Uzupełnij listę rules tymi funkcjami anonimowymi przyjmującymi jedną cenę:

half: podziel cenę przez 2
minus5: odejmij 5, ale nigdy nie schodź poniżej 0
tax: dodaj 10%
round: zaokrąglij do liczby całkowitej za pomocą round()

Następnie uzupełnij apply_rules(price, names): zastosuj reguły wymienione w names w podanej kolejności i zwróć po jednym wierszu dla każdej reguły, after half: 20.00, a następnie final: i cenę końcową. Pokaż każdą cenę z dwoma miejscami po przecinku.

Dostarczony kod odczytuje cenę i rozdzieloną przecinkami listę nazw reguł, a następnie wypisuje każdy zwrócony wiersz.

Spróbuj swoich sił

rules <- list(
  # Wpisz tutaj swój kod
)

apply_rules <- function(price, names) {
  # Wpisz tutaj swój kod
  character(0)
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
input <- suppressWarnings(readLines(file("stdin")))
cat(apply_rules(as.numeric(input[1]), strsplit(input[2], ",")[[1]]), sep = "\n")