La función FizzBuzz

Parte de la sección Fundamentos del Journey de R de Coddy — lección 53 de 78.

Desafío

Fácil

En la lección anterior, creaste una función check_divisible. Ahora, construye la función principal fizzbuzz que determine qué devolver para un solo número.

Crea una función llamada fizzbuzz que tome un argumento: n. La función debe devolver:

"FizzBuzz" si n es divisible tanto por 3 como por 5
"Fizz" si n es divisible solo por 3
"Buzz" si n es divisible solo por 5
El número mismo (como una cadena de caracteres) si nada de lo anterior se aplica

Usa as.character() para convertir el número a una cadena cuando devuelvas el número mismo.

Lee un número de la entrada, conviértelo a un valor numérico y llama a tu función fizzbuzz. Imprime el resultado devuelto.

Por ejemplo, si la entrada es:

La salida debería ser:

[1] "FizzBuzz"

Si la entrada es:

La salida debería ser:

[1] "Fizz"

Si la entrada es:

La salida debería ser:

[1] "Buzz"

Si la entrada es:

La salida debería ser:

[1] "7"

Pruébalo tú mismo

# 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))