復習 - 割引ルール

CoddyのRジャーニー「ロジックとフロー」セクションの一部。レッスン 31/64。

チャレンジ

中級

ショップは、価格に対して価格ルールを1つずつ順番に適用します。次の1つの価格を受け取る無名関数で rules のリストを完成させてください。

half：価格を2で割る
minus5：5を引く。ただし、0未満にはしない
tax：10%を加える
round：round() を使って整数に丸める

次に apply_rules(price, names) を完成させてください。names に指定されたルールを順番に適用し、各ルールにつき1行を返します。出力は after half: 20.00 に続けて、final: と最終価格を表示します。すべての価格は小数点以下2桁で表示してください。

与えられたコードは価格と、カンマ区切りのルール名のリストを読み取り、返された各行を出力します。

自分で試してみよう

rules <- list(
  # ここにコードを書いてください
)

apply_rules <- function(price, names) {
  # ここにコードを書いてください
  character(0)
}

# 提供された入出力コード：そのままにしておいてください
input <- suppressWarnings(readLines(file("stdin")))
cat(apply_rules(as.numeric(input[1]), strsplit(input[2], ",")[[1]]), sep = "\n")