Hàm FizzBuzz

Thuộc phần Kiến thức nền tảng trong hành trình R của Coddy. Bài học 53 trên 78.

Thử thách

Dễ

Trong bài học trước, bạn đã tạo hàm check_divisible. Bây giờ, hãy xây dựng hàm cốt lõi fizzbuzz để xác định đầu ra cho một số.

Tạo hàm có tên fizzbuzz nhận một đối số: n. Hàm cần trả về:

"FizzBuzz" nếu n chia hết cho cả 3 và 5
"Fizz" nếu n chỉ chia hết cho 3
"Buzz" nếu n chỉ chia hết cho 5
Bản thân số đó (dưới dạng chuỗi ký tự) nếu không thuộc trường hợp nào ở trên

Dùng as.character() để chuyển số thành chuỗi khi trả về chính số đó.

Đọc một số từ đầu vào, chuyển số đó thành giá trị số và gọi hàm fizzbuzz. In ra kết quả được trả về.

Ví dụ, nếu đầu vào là:

Đầu ra cần là:

[1] "FizzBuzz"

Nếu đầu vào là:

Đầu ra cần là:

[1] "Fizz"

Nếu đầu vào là:

Đầu ra cần là:

[1] "Buzz"

Nếu đầu vào là:

Đầu ra cần là:

[1] "7"

Tự làm thử

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