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)
}
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)
}