Fungsi FizzBuzz

Termasuk bagian Dasar-Dasar dalam perjalanan R di Coddy. Pelajaran 53 dari 78.

Tantangan

Mudah

Di pelajaran sebelumnya, kamu membuat fungsi check_divisible. Sekarang, buat fungsi inti fizzbuzz yang menentukan output untuk satu angka.

Buat fungsi bernama fizzbuzz yang menerima satu argumen: n. Fungsi ini harus mengembalikan:

"FizzBuzz" jika n habis dibagi 3 dan 5
"Fizz" jika n hanya habis dibagi 3
"Buzz" jika n hanya habis dibagi 5
Angka itu sendiri (sebagai string karakter) jika tidak ada kondisi di atas yang terpenuhi

Gunakan as.character() untuk mengonversi angka menjadi string saat mengembalikan angka itu sendiri.

Baca sebuah angka dari input, konversikan menjadi nilai numerik, lalu panggil fungsi fizzbuzz milikmu. Cetak hasil yang dikembalikan.

Misalnya, jika input-nya adalah:

Output-nya seharusnya:

[1] "FizzBuzz"

Jika input-nya adalah:

Output-nya seharusnya:

[1] "Fizz"

Jika input-nya adalah:

Output-nya seharusnya:

[1] "Buzz"

Jika input-nya adalah:

Output-nya seharusnya:

[1] "7"

Coba sendiri

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