生徒の平均点

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

チャレンジ

簡単

AVG コマンドを追加してください。これまでの手順に登場したすべてのコマンドが、以前とまったく同じように動作し続けるようにしてください。

AVG <name>：存在しない学生には no student <name>、成績のない学生には <name>: no grades、それ以外の場合は <name>: に続けて、その学生の成績の平均を小数第1位まで表示して返します。例：ada: 88.8。

スコアのベクトルを no grades または書式設定された平均値に変換するヘルパー関数が、次のステップでも再び役立ちます。

提供されているコードは、入力された各行を1つのコマンドとして gradebook() に渡し、返された各応答をそれぞれ1行に出力します。名前は小文字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))
      }
    } else if (parts[1] == "GRADE") {
      if (!(name %in% names(grades))) {
        replies <- c(replies, paste("no student", name))
      } else {
        score <- as.numeric(parts[3])
        grades[[name]] <- c(grades[[name]], score)
        replies <- c(replies, paste("recorded", score, "for", name))
      }
    }
  }
  replies
}

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