R らしく FizzBuzz

「よしいずの雑記帳 FizzBuzz問題の解答例 R編」

R らしく? ベクトル演算で

i <- 1:100
ifelse(i %% 15 == 0, "FizzBuzz", ifelse(i %% 3 == 0, "Fizz", ifelse(i %% 5 == 0, "Buzz", i)))