速いけど，この先にあるのは，答えの文字列を書き出すというプログラムになりそう(^_^;)
> system.time({
+ limit <- 1000000
+ ans3 <- rep(c("d", "d", "Fizz", "d", "Buzz", "Fizz", "d", "d", "Fizz", "Buzz", "d", "Fizz", "d", "d", "FizzBuzz"), ceiling(limit/15))[1:limit]
+ temp <- ans3=="d"
+ ans3[temp]<- which(temp)
+ })
ユーザ システム 経過
0.324 0.003 0.347
> all(ans1==ans3)
[1] TRUE
