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

6 lines
103 B
R

xx <- x <- 1:100
xx[x %% 3 == 0] <- "Fizz"
xx[x %% 5 == 0] <- "Buzz"
xx[x %% 15 == 0] <- "FizzBuzz"
xx