Программирование R: напечатайте числа от 1 до 100 и напечатайте «Fizz» для кратных 3, напечатайте «Buzz» для кратных 5 и напечатайте «FizzBuzz» для кратных обоих

Программирование на R: базовое упражнение-7 с решением

Напишите R-программу для печати чисел от 1 до 100 и напечатайте «Fizz» для кратных 3, напечатайте «Buzz» для кратных 5 и напечатайте «FizzBuzz» для кратных обоих.

Пример решения :

Код программирования R:

for (n in 1:100) {
 if (n %% 3 == 0 & n %% 5 == 0) {print("FizzBuzz")}
 else if (n %% 3 == 0) {print("Fizz")}
 else if (n %% 5 == 0) {print("Buzz")}
 else print(n)
}

Пример вывода:

 [1] 1
[1] 2
[1] "Физз"
[1] 4
[1] "Buzz"
[1] "Физз"
[1] 7
[1] 8
[1] "Физз"
[1] "Buzz"
[1] 11
[1] "Физз"
[1] 13
[1] 14
[1] "FizzBuzz"
[1] 16
[1] 17
[1] "Физз"
[1] 19
[1] "Buzz"
[1] "Физз"
[1] 22
[1] 23
[1] "Физз"
[1] "Buzz"
[1] 26
[1] "Физз"
[1] 28
[1] 29
[1] "FizzBuzz"
[1] 31
[1] 32
[1] "Физз"
[1] 34
[1] "Buzz"
[1] "Физз"
[1] 37
[1] 38
[1] "Физз"
[1] "Buzz"
[1] 41
[1] "Физз"
[1] 43
[1] 44
[1] "FizzBuzz"
[1] 46
[1] 47
[1] "Физз"
[1] 49
[1] "Buzz"
[1] "Физз"
[1] 52
[1] 53
[1] "Физз"
[1] "Buzz"
[1] 56
[1] "Физз"
[1] 58
[1] 59
[1] "FizzBuzz"
[1] 61
[1] 62
[1] "Физз"
[1] 64
[1] "Buzz"
[1] "Физз"
[1] 67
[1] 68
[1] "Физз"
[1] "Buzz"
[1] 71
[1] "Физз"
[1] 73
[1] 74
[1] "FizzBuzz"
[1] 76
[1] 77
[1] "Физз"
[1] 79
[1] "Buzz"
[1] "Физз"
[1] 82
[1] 83
[1] "Физз"
[1] "Buzz"
[1] 86
[1] "Физз"
[1] 88
[1] 89
[1] "FizzBuzz"
[1] 91
[1] 92
[1] "Физз"
[1] 94
[1] "Buzz"
[1] "Физз"
[1] 97
[1] 98
[1] "Физз"
[1] "Buzz"                         

Редактор кода программирования R:

Есть другой способ решить это решение? Внесите свой код (и комментарии) через Disqus.

Предыдущий: Напишите программу на R, чтобы получить все простые числа до заданного числа (на основе сита Эратосфена).
Далее: Написать R программу для извлечения первой 10 буквы английского алфавита в нижнем регистре и последние 10 букв в верхнем регистре и извлекать письма от 22 - ^го по 24 - ^й буквы в верхнем регистре.