범주별 지출

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

챌린지

쉬움

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

CATEGORY: 카테고리별로 알파벳순으로 한 줄씩 응답합니다. 예를 들어 food: 20.50과 같이 카테고리의 합계를 소수점 이하 두 자리까지 표시합니다. 기록된 항목이 없으면 no expenses라고 응답합니다.

하나의 CATEGORY 명령은 여러 응답을 생성하며, 각 응답은 자체 줄에 출력됩니다.

제공된 코드는 각 입력 줄을 하나의 명령으로 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))
      }
    } else if (parts[1] == "TOTAL") {
      replies <- c(replies, sprintf("total: %.2f, count: %d", sum(expenses$amount), nrow(expenses)))
    }
  }
  replies
}

# 제공된 입력/출력 코드: 있는 그대로 유지하세요
input <- suppressWarnings(readLines(file("stdin")))
cat(tracker(input), sep = "\n")