FizzBuzz Fonksiyonu

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

Görev

Kolay

Önceki derste bir check_divisible fonksiyonu oluşturdunuz. Şimdi, tek bir sayı için ne çıktı verileceğini belirleyen temel fizzbuzz fonksiyonunu oluşturun.

n adında bir argüman alan fizzbuzz adında bir fonksiyon oluşturun. Fonksiyon şunları döndürmelidir:

Eğer n hem 3 hem de 5 ile bölünebiliyorsa "FizzBuzz"
Eğer n sadece 3 ile bölünebiliyorsa "Fizz"
Eğer n sadece 5 ile bölünebiliyorsa "Buzz"
Yukarıdakilerin hiçbiri geçerli değilse sayının kendisi (karakter dizisi olarak)

Sayının kendisini döndürürken sayıyı bir dizeye dönüştürmek için as.character() kullanın.

Girdiden bir sayı okuyun, bunu sayısal bir değere dönüştürün ve fizzbuzz fonksiyonunuzu çağırın. Döndürülen sonucu yazdırın.

Örneğin, girdi şu ise:

Çıktı şöyle olmalıdır:

[1] "FizzBuzz"

Eğer girdi şu ise:

Çıktı şöyle olmalıdır:

[1] "Fizz"

Eğer girdi şu ise:

Çıktı şöyle olmalıdır:

[1] "Buzz"

Eğer girdi şu ise:

Çıktı şöyle olmalıdır:

[1] "7"

Kendin dene

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