RosettaCodeData/Task/FizzBuzz/R/fizzbuzz-3.r

x <- paste(rep("", 100), c("", "", "Fizz"), c("", "", "", "", "Buzz"), sep="")
cat(ifelse(x == "", 1:100, x), "\n")
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`x <- paste(rep("", 100), c("", "", "Fizz"), c("", "", "", "", "Buzz"), sep="")`
			`cat(ifelse(x == "", 1:100, x), "\n")`