La fonction FizzBuzz

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

Défi

Facile

Dans la leçon précédente, vous avez créé une fonction check_divisible. Maintenant, construisez la fonction principale fizzbuzz qui détermine ce qu'il faut afficher pour un nombre unique.

Créez une fonction appelée fizzbuzz qui prend un argument : n. La fonction doit retourner :

"FizzBuzz" si n est divisible par la fois 3 et 5
"Fizz" si n est divisible par 3 uniquement
"Buzz" si n est divisible par 5 uniquement
Le nombre lui-même (sous forme de chaîne de caractères) si aucune des conditions ci-dessus ne s'applique

Utilisez as.character() pour convertir le nombre en chaîne de caractères lorsque vous retournez le nombre lui-même.

Lisez un nombre depuis l'entrée, convertissez-le en valeur numérique, et appelez votre fonction fizzbuzz. Affichez le résultat retourné.

Par exemple, si l'entrée est :

La sortie doit être :

[1] "FizzBuzz"

Si l'entrée est :

La sortie doit être :

[1] "Fizz"

Si l'entrée est :

La sortie doit être :

[1] "Buzz"

Si l'entrée est :

La sortie doit être :

[1] "7"

Essayez vous-même

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

# TODO: Create a function called check_divisible that takes two arguments:
# number and divisor. Return TRUE if number is divisible by divisor, FALSE otherwise.
check_divisible <- function(number, divisor) {
  return(number %% divisor == 0)
}

# Call your function and print the result
print(check_divisible(number, divisor))