速いけど，この先にあるのは，答えの文字列を書き出すというプログラムになりそう(^_^;) > system.time({+ limit <- 1000000+ ans3 <- rep(c("d", "d", "Fizz", "d", "Buzz", "Fizz", "d", "d", "Fizz", "Buzz", "d", "Fizz", "d", "d", "FizzBuzz"), ceilin…

速度を求めるなら以下のように > i <- 1:1000000> system.time({+ ans1 <- ifelse(i %% 15 == 0, "FizzBuzz", ifelse(i %% 3 == 0, "Fizz", ifelse(i %% 5 == 0, "Buzz", i)))+ }) ユーザ システム 経過 3.214 0.141 3.334 > system.time({+ ans2 <- i+ l <-…