FizzBuzz 函数

本课属于 Coddy R 学习旅程的“基础知识”单元。第 53 课，共 78 课。

挑战

简单

在上一课中，你创建了一个 check_divisible 函数。现在，编写核心 fizzbuzz 函数，确定单个数字应输出什么。

创建一个名为 fizzbuzz 的函数，它接受一个参数：n。该函数应返回：

如果 n 同时能被 3 和 5 整除，则返回 "FizzBuzz"
如果 n 只能被 3 整除，则返回 "Fizz"
如果 n 只能被 5 整除，则返回 "Buzz"
如果以上条件都不满足，则返回数字本身（作为字符串）

返回数字本身时，使用 as.character() 将数字转换为字符串。

从输入中读取一个数字，将其转换为数值，然后调用你的 fizzbuzz 函数。打印返回的结果。

例如，如果输入是：

输出应为：

[1] "FizzBuzz"

如果输入是：

输出应为：

[1] "Fizz"

如果输入是：

输出应为：

[1] "Buzz"

如果输入是：

输出应为：

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