Sayılar Üzerinde Döngü Kurma

Coddy'nin R Journey'sinin Temeller bölümünün bir parçası — ders 54 / 78.

Görev

Kolay

Önceki derste, tek bir sayıyı işleyen fizzbuzz fonksiyonunu oluşturdunuz. Şimdi, 1'den belirli bir sınıra kadar olan bir sayı aralığını işlemek için bir döngü ekleyin.

Kodunuzu şu şekilde değiştirin:

Girdiden bir n sayısı okuyun (bu üst sınır olacaktır)
1'den n'e kadar yineleme yapmak için bir for döngüsü kullanın
Aralıktaki her sayı için fizzbuzz fonksiyonunuzu çağırın ve sonucu yazdırın

Her sonuç, print() kullanılarak yeni bir satıra yazdırılmalıdır.

Örneğin, girdi şu şekildeyse:

Çıktı şu şekilde olmalıdır:

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

Eğer girdi şu şekildeyse:

Çıktı şu şekilde olmalıdır:

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

Kendin dene

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