FizzBuzz Solution in R

Problem Statement

Write a function f(x) to accept an integer vector, and returns a vector with those numbers except for: multiples of 3 replaced by “Fizz”? multiples of 5 replaced by “Buzz” multiples of 3 and 5 replaced by “FizzBuzz”"

Example

> x <- 1:20
> f(1:20) 
# 1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz

options(warn=-1)
f <- function(x) {
  x[as.numeric(x)%%3==0 & as.numeric(x)%%5==0] <- "FizzBuzz"
  x[as.numeric(x)%%3==0] <- "Fizz"
  x[as.numeric(x)%%5==0] <- "Buzz"
  x  
}
x <- 1:20
suppressWarnings(f(x))

 [1] "1"        "2"        "Fizz"     "4"        "Buzz"     "Fizz"     "7"        "8"        "Fizz"     "Buzz"     "11"       "Fizz"     "13"       "14"      
[15] "FizzBuzz" "16"       "17"       "Fizz"     "19"       "Buzz"