Menu
Coddy logo textTech

Функция FizzBuzz

Часть раздела Основы путешествия по R на Coddy — урок 53 из 78.

challenge icon

Задание

Легко

В предыдущем уроке вы создали функцию check_divisible. Теперь создайте основную функцию fizzbuzz, которая определяет, что выводить для одного числа.

Создайте функцию с именем fizzbuzz, которая принимает один аргумент: n. Функция должна возвращать:

  • "FizzBuzz", если n делится и на 3, и на 5
  • "Fizz", если n делится только на 3
  • "Buzz", если n делится только на 5
  • Само число (как символьную строку), если ни одно из вышеперечисленных условий не выполняется

Используйте 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))

Все уроки раздела Основы