RosettaCodeData/Task/FizzBuzz/R/fizzbuzz-3.r
2015-11-18 06:14:39 +00:00

2 lines
116 B
R

x <- paste(rep("", 100), c("", "", "Fizz"), c("", "", "", "", "Buzz"), sep="")
cat(ifelse(x == "", 1:100, x), "\n")