Dépenses totales

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 58 sur 64.

Défi

Facile

Ajoutez la commande TOTAL à tracker(). Toutes les commandes des étapes précédentes doivent continuer à fonctionner exactement comme avant.

TOTAL : répondre total: suivi de la somme de tous les montants enregistrés avec deux décimales, puis de , count: et du nombre de dépenses, par exemple total: 512.50, count: 2. Si rien n’a été enregistré, la réponse est total: 0.00, count: 0.

Le code fourni transmet chaque ligne d’entrée à tracker() comme une seule commande et affiche chaque réponse renvoyée sur sa propre ligne. Les dates sont écrites au format YYYY-MM-DD, les catégories sont des mots en minuscules et l’entrée contient uniquement les commandes décrites jusqu’à présent.

Essayez vous-même

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
}

# Code d'entrée/sortie fourni : le garder tel quel
input <- suppressWarnings(readLines(file("stdin")))
cat(tracker(input), sep = "\n")