A Função FizzBuzz

Parte da seção Fundamentos do Journey de R da Coddy — lição 53 de 78.

Desafio

Fácil

Na lição anterior, você criou uma função check_divisible. Agora, construa a função principal fizzbuzz que determina o que retornar para um único número.

Crie uma função chamada fizzbuzz que recebe um argumento: n. A função deve retornar:

"FizzBuzz" se n for divisível por 3 e 5 ao mesmo tempo
"Fizz" se n for divisível apenas por 3
"Buzz" se n for divisível apenas por 5
O próprio número (como uma string de caracteres) se nenhuma das opções acima se aplicar

Use as.character() para converter o número em uma string ao retornar o próprio número.

Leia um número da entrada, converta-o para um valor numérico e chame sua função fizzbuzz. Imprima o resultado retornado.

Por exemplo, se a entrada for:

A saída deve ser:

[1] "FizzBuzz"

Se a entrada for:

A saída deve ser:

[1] "Fizz"

Se a entrada for:

A saída deve ser:

[1] "Buzz"

Se a entrada for:

A saída deve ser:

[1] "7"

Experimente você mesmo

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