Die FizzBuzz-Funktion

Teil des Abschnitts Grundlagen der R-Journey von Coddy. Lektion 53 von 78.

Aufgabe

Einfach

In der vorherigen Lektion haben Sie eine check_divisible-Funktion erstellt. Erstellen Sie nun die Kernfunktion fizzbuzz, die bestimmt, was für eine einzelne Zahl ausgegeben werden soll.

Erstellen Sie eine Funktion namens fizzbuzz, die ein Argument entgegennimmt: n. Die Funktion sollte Folgendes zurückgeben:

"FizzBuzz", wenn n sowohl durch 3 als auch durch 5 teilbar ist
"Fizz", wenn n nur durch 3 teilbar ist
"Buzz", wenn n nur durch 5 teilbar ist
Die Zahl selbst (als Zeichenkette), wenn nichts davon zutrifft

Verwenden Sie as.character(), um die Zahl in eine Zeichenkette umzuwandeln, wenn Sie die Zahl selbst zurückgeben.

Lesen Sie eine Zahl aus der Eingabe ein, konvertieren Sie diese in einen numerischen Wert und rufen Sie Ihre fizzbuzz-Funktion auf. Geben Sie das zurückgegebene Ergebnis aus.

Wenn die Eingabe zum Beispiel wie folgt aussieht:

Sollte die Ausgabe wie folgt aussehen:

[1] "FizzBuzz"

Wenn die Eingabe wie folgt aussieht:

Sollte die Ausgabe wie folgt aussehen:

[1] "Fizz"

Wenn die Eingabe wie folgt aussieht:

Sollte die Ausgabe wie folgt aussehen:

[1] "Buzz"

Wenn die Eingabe wie folgt aussieht:

Sollte die Ausgabe wie folgt aussehen:

[1] "7"

Probier es selbst

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