Fizz-Buzz問題 2

• 1 から 100 までの数をプリントするプログラムを書け。
• ただし 3 の倍数のときは数の代わりに「Fizz」と，5 の倍数のときは「Buzz」とプリントし，3 と 5 両方の倍数の場合には「FizzBuzz」とプリントすること。
  「どうしてプログラマに・・・プログラムが書けないのか?」 Jeff Atwood / 青木靖 訳 2007年2月26日

fb   <- 1:100

f3   <- fb %% 3 == 0
b5   <- fb %% 5 == 0
fb15 <- f3 & b5

fb[f3]   <- "Fizz"
fb[b5]   <- "Buzz"
fb[fb15] <- "FizzBuzz"

data.frame(fb)

##           fb
## 1          1
## 2          2
## 3       Fizz
## 4          4
## 5       Buzz
## 6       Fizz
## 7          7
## 8          8
## 9       Fizz
## 10      Buzz
## 11        11
## 12      Fizz
## 13        13
## 14        14
## 15  FizzBuzz
## 16        16
## 17        17
## 18      Fizz
## 19        19
## 20      Buzz
## 21      Fizz
## 22        22
## 23        23
## 24      Fizz
## 25      Buzz
## 26        26
## 27      Fizz
## 28        28
## 29        29
## 30  FizzBuzz
## 31        31
## 32        32
## 33      Fizz
## 34        34
## 35      Buzz
## 36      Fizz
## 37        37
## 38        38
## 39      Fizz
## 40      Buzz
## 41        41
## 42      Fizz
## 43        43
## 44        44
## 45  FizzBuzz
## 46        46
## 47        47
## 48      Fizz
## 49        49
## 50      Buzz
## 51      Fizz
## 52        52
## 53        53
## 54      Fizz
## 55      Buzz
## 56        56
## 57      Fizz
## 58        58
## 59        59
## 60  FizzBuzz
## 61        61
## 62        62
## 63      Fizz
## 64        64
## 65      Buzz
## 66      Fizz
## 67        67
## 68        68
## 69      Fizz
## 70      Buzz
## 71        71
## 72      Fizz
## 73        73
## 74        74
## 75  FizzBuzz
## 76        76
## 77        77
## 78      Fizz
## 79        79
## 80      Buzz
## 81      Fizz
## 82        82
## 83        83
## 84      Fizz
## 85      Buzz
## 86        86
## 87      Fizz
## 88        88
## 89        89
## 90  FizzBuzz
## 91        91
## 92        92
## 93      Fizz
## 94        94
## 95      Buzz
## 96      Fizz
## 97        97
## 98        98
## 99      Fizz
## 100     Buzz