支出合計

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

チャレンジ

簡単

TOTAL コマンドを tracker() に追加してください。前の手順で動作していたすべてのコマンドが、これまでどおり正確に動作するようにしてください。

TOTAL：total: に続けて、記録されたすべての金額の合計を小数点以下2桁で返し、その後に , count: と支出の件数を続けます。たとえば total: 512.50, count: 2 のようになります。何も記録されていない場合の返答は total: 0.00, count: 0 です。

提供されたコードは、入力された各行を1つのコマンドとして tracker() に渡し、返された各応答をそれぞれ別の行に出力します。日付は YYYY-MM-DD 形式で記述され、カテゴリは小文字の単語であり、入力にはここまでで説明したコマンドだけが含まれます。

自分で試してみよう

tracker <- function(commands) {
  expenses <- data.frame(date = character(0), category = character(0), amount = numeric(0))
  replies <- c()
  for (cmd in commands) {
    parts <- strsplit(cmd, " ")[[1]]
    if (parts[1] == "ADD") {
      amount <- suppressWarnings(as.numeric(parts[4]))
      if (length(parts) != 4 || is.na(amount) || amount <= 0) {
        replies <- c(replies, paste("invalid:", cmd))
      } else {
        expenses <- rbind(expenses, data.frame(date = parts[2], category = parts[3], amount = amount))
        replies <- c(replies, sprintf("added %s %.2f", parts[3], amount))
      }
    }
  }
  replies
}

# 提供された入出力コード: そのままにしておく
input <- suppressWarnings(readLines(file("stdin")))
cat(tracker(input), sep = "\n")