La funzione FizzBuzz

Fa parte della sezione Fondamenti del percorso R di Coddy. Lezione 53 di 78.

Sfida

Facile

Nella lezione precedente, hai creato una funzione check_divisible. Ora, crea la funzione principale fizzbuzz, che determina cosa restituire per un singolo numero.

Crea una funzione chiamata fizzbuzz che accetta un argomento: n. La funzione dovrebbe restituire:

"FizzBuzz" se n è divisibile sia per 3 che per 5
"Fizz" se n è divisibile solo per 3
"Buzz" se n è divisibile solo per 5
Il numero stesso (come stringa di caratteri) se non si verifica nessuna delle condizioni precedenti

Usa as.character() per convertire il numero in una stringa quando restituisci il numero stesso.

Leggi un numero dall'input, convertilo in un valore numerico e chiama la tua funzione fizzbuzz. Stampa il risultato restituito.

Per esempio, se l'input è:

L'output dovrebbe essere:

[1] "FizzBuzz"

Se l'input è:

L'output dovrebbe essere:

[1] "Fizz"

Se l'input è:

L'output dovrebbe essere:

[1] "Buzz"

Se l'input è:

L'output dovrebbe essere:

[1] "7"

Provalo tu

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