FizzBuzz 함수

Coddy R 여정의 기초 섹션에 포함된 레슨 — 78개 중 53번째.

챌린지

쉬움

이전 레슨에서 check_divisible 함수를 만들었습니다. 이제 단일 숫자에 대해 무엇을 출력할지 결정하는 핵심 fizzbuzz 함수를 만들어 보겠습니다.

하나의 인자 n을 받는 fizzbuzz라는 함수를 만드세요. 이 함수는 다음을 반환해야 합니다:

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