학생 평균

Coddy R 여정의 논리와 흐름 섹션에 포함된 레슨. 64개 중 24번째.

챌린지

쉬움

AVG 명령을 추가하세요. 이전 단계의 모든 명령이 이전과 정확히 동일하게 작동하도록 유지하세요.

AVG <name>: 알 수 없는 학생에게는 no student <name>를, 성적이 없는 학생에게는 <name>: no grades를 응답하고, 그 외에는 <name>: 뒤에 해당 학생 성적의 평균을 소수점 한 자리로 표시하여 응답하세요. 예: ada: 88.8.

점수 벡터를 no grades 또는 형식이 지정된 평균으로 변환하는 도우미 함수가 다음 단계에서도 다시 유용하게 사용됩니다.

제공된 코드는 모든 입력 줄을 하나의 명령으로 gradebook()에 전달하고, 반환된 각 응답을 한 줄씩 출력합니다. 이름은 하나의 소문자 단어이며, 입력에는 지금까지 설명한 명령만 포함됩니다.

직접 해보기

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")