RosettaCodeData/Task/FizzBuzz/R/fizzbuzz-3.r
2023-07-01 13:44:08 -04:00

2 lines
115 B
R

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