Parcourir les nombres

Fait partie de la section Fondamentaux du Journey R de Coddy — leçon 54 sur 78.

Défi

Facile

Dans la leçon précédente, vous avez créé la fonction fizzbuzz qui gère un seul nombre. Maintenant, ajoutez une boucle pour traiter une plage de nombres allant de 1 à une limite donnée.

Modifiez votre code pour :

Lire un nombre n à partir de l'entrée (ce sera la limite supérieure)
Utiliser une boucle for pour itérer de 1 à n
Pour chaque nombre de la plage, appeler votre fonction fizzbuzz et afficher le résultat

Chaque résultat doit être affiché sur une nouvelle ligne en utilisant print().

Par exemple, si l'entrée est :

La sortie devrait être :

[1] "1"
[1] "2"
[1] "Fizz"
[1] "4"
[1] "Buzz"

Si l'entrée est :

La sortie devrait être :

[1] "1"
[1] "2"
[1] "Fizz"
[1] "4"
[1] "Buzz"
[1] "Fizz"
[1] "7"
[1] "8"
[1] "Fizz"
[1] "Buzz"
[1] "11"
[1] "Fizz"
[1] "13"
[1] "14"
[1] "FizzBuzz"

Essayez vous-même

# Read input
con <- file("stdin", "r")
number <- as.numeric(suppressWarnings(readLines(con, n = 1)))

# Function from previous lesson
check_divisible <- function(number, divisor) {
  return(number %% divisor == 0)
}

# Create the fizzbuzz function
fizzbuzz <- function(n) {
  if (check_divisible(n, 3) && check_divisible(n, 5)) {
    return("FizzBuzz")
  } else if (check_divisible(n, 3)) {
    return("Fizz")
  } else if (check_divisible(n, 5)) {
    return("Buzz")
  } else {
    return(as.character(n))
  }
}

# Call the fizzbuzz function and print the result
print(fizzbuzz(number))