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

4 lines
126 B
R

x <- 1:100
ifelse(x %% 15 == 0, 'FizzBuzz',
ifelse(x %% 5 == 0, 'Buzz',
ifelse(x %% 3 == 0, 'Fizz', x)))