6 lines
103 B
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
|