Récapitulatif – Classificateur de notes

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

Défi

Moyen

Complète grade_report(names, scores). Attribue à chaque étudiant une note avec ifelse() : A à partir de 90, B à partir de 75, C à partir de 50 et F en dessous de 50. Retourne une ligne par étudiant, ada: 93 (A) Excellent, où le commentaire provient d’un switch() sur la note : Excellent pour A, Good pour B, Pass pour C et Retake pour F.

Ajoute ensuite Top: suivi des étudiants ayant obtenu le score le plus élevé, dans l’ordre d’entrée et joints avec , .

Le code fourni lit les noms et les scores sous forme de deux lignes séparées par des virgules, puis affiche chaque ligne retournée.

Essayez vous-même

grade_report <- function(names, scores) {
  # Écrivez votre code ici
  character(0)
}

# Code d'entrée/sortie fourni : gardez-le tel quel
input <- suppressWarnings(readLines(file("stdin")))
cat(grade_report(strsplit(input[1], ",")[[1]], as.numeric(strsplit(input[2], ",")[[1]])), sep = "\n")