FizzBuzz 関数
CoddyのRジャーニー「基礎」セクションの一部 — レッスン 53/78。
チャレンジ
簡単前のレッスンでは、check_divisible 関数を作成しました。今回は、1つの数値に対して何を出力するかを決定する、コアとなる fizzbuzz 関数を構築しましょう。
1つの引数 n を取る fizzbuzz という名前の関数を作成してください。この関数は以下を返す必要があります：
nが3と5の両方で割り切れる場合は"FizzBuzz"nが3のみで割り切れる場合は"Fizz"nが5のみで割り切れる場合は"Buzz"- 上記のいずれにも当てはまらない場合は、その数値自体（文字列として）
数値自体を返すときは、as.character() を使用して数値を文字列に変換してください。
入力から数値を読み取り、それを数値型に変換して、作成した fizzbuzz 関数を呼び出します。返された結果をプリントしてください。
例えば、入力が以下の場合：
15出力は以下のようになります：
[1] "FizzBuzz"入力が以下の場合：
9出力は以下のようになります：
[1] "Fizz"入力が以下の場合：
10出力は以下のようになります：
[1] "Buzz"入力が以下の場合：
7出力は以下のようになります：
[1] "7"自分で試してみよう
# 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))