카타 7급 Fizz / Buzz

R

solution <- function(n){
  c <- (n-1)%/%15
  a <- (n-1)%/%3
  b <- (n-1)%/%5
  c(a - c, b - c, c)
}

solution <- function(n){
  n = n - 1
  C = n %/% 15
  A = n %/% 3 - C
  B = n %/% 5 - C
  c(A, B, C)
}