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

3 lines
115 B
R
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
x <- paste0(rep("", 100), c("", "", "Fizz"), c("", "", "", "", "Buzz"))
cat(ifelse(x == "", 1:100, x), sep = "\n")