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

5 lines
126 B
R
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
x <- 1:100
ifelse(x %% 15 == 0, 'FizzBuzz',
ifelse(x %% 5 == 0, 'Buzz',
ifelse(x %% 3 == 0, 'Fizz', x)))