Scorrere i numeri

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

Sfida

Facile

Nella lezione precedente, hai creato la funzione fizzbuzz che gestisce un singolo numero. Ora aggiungi un ciclo per elaborare un intervallo di numeri da 1 a un limite specificato.

Modifica il tuo codice per:

Leggere un numero n dall'input (questo sarà il limite superiore)
Usare un ciclo for per iterare da 1 a n
Per ogni numero nell'intervallo, chiamare la tua funzione fizzbuzz e stampare il risultato

Ogni risultato deve essere stampato su una nuova riga usando print().

Per esempio, se l'input è:

L'output dovrebbe essere:

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

Se l'input è:

L'output dovrebbe essere:

[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"

Provalo tu

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