Funkcja FizzBuzz

Część sekcji Podstawy ścieżki R w Coddy. Lekcja 53 z 78.

Wyzwanie

Łatwy

W poprzedniej lekcji utworzyłeś funkcję check_divisible. Teraz zbuduj podstawową funkcję fizzbuzz, która określa, co zwrócić dla pojedynczej liczby.

Utwórz funkcję o nazwie fizzbuzz, która przyjmuje jeden argument: n. Funkcja powinna zwracać:

"FizzBuzz", jeśli n jest podzielne zarówno przez 3, jak i przez 5
"Fizz", jeśli n jest podzielne tylko przez 3
"Buzz", jeśli n jest podzielne tylko przez 5
Samą liczbę (jako ciąg znaków), jeśli nie zachodzi żaden z powyższych przypadków

Użyj as.character(), aby przekonwertować liczbę na ciąg znaków, gdy zwracasz samą liczbę.

Wczytaj liczbę z wejścia, przekonwertuj ją na wartość numeryczną i wywołaj funkcję fizzbuzz. Wypisz zwrócony wynik.

Na przykład, jeśli dane wejściowe to:

Wynik powinien być następujący:

[1] "FizzBuzz"

Jeśli dane wejściowe to:

Wynik powinien być następujący:

[1] "Fizz"

Jeśli dane wejściowe to:

Wynik powinien być następujący:

[1] "Buzz"

Jeśli dane wejściowe to:

Wynik powinien być następujący:

[1] "7"

Spróbuj swoich sił

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