RosettaCodeData/Task/FizzBuzz/R/fizzbuzz-4.r
2015-11-18 06:14:39 +00: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)))