成績の記録

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

チャレンジ

簡単

GRADE コマンドを gradebook() に追加してください。前のステップまでのすべてのコマンドが、これまでどおり正確に動作するようにしてください。

GRADE <name> <score>：学生が保存されていない場合は、no student <name> と返します。それ以外の場合は、学生の成績にスコアを追加し、recorded <score> for <name> と返します。

スコアは 90 や 87.5 のような数値です。返答には、R がその数値を表示する形式で記述してください。

提供されたコードは、入力された各行を1つのコマンドとして gradebook() に渡し、返された各応答をそれぞれ別の行に出力します。名前は小文字1語であり、入力にはここまでに説明したコマンドだけが含まれます。

自分で試してみよう

gradebook <- function(commands) {
  grades <- list()
  replies <- c()
  for (cmd in commands) {
    parts <- strsplit(cmd, " ")[[1]]
    name <- parts[2]
    if (parts[1] == "ADD") {
      if (name %in% names(grades)) {
        replies <- c(replies, paste(name, "already exists"))
      } else {
        grades[[name]] <- numeric(0)
        replies <- c(replies, paste("added", name))
      }
    }
  }
  replies
}

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