# by: Cody Kochmann
# Find the sum of all the multiples of 3 or 5 below 1000.

calc_multiples <- function(n, limit){
    o<-c()
    for (i in 0:floor(limit/n)){
        o <- c(o,i*n)
    }
    return(o)
}

find_common_multiples <- function(input_multiples, limit){
    multiples<-c()
    for(i in input_multiples){
        if(length(multiples)>0){
            multiples<-intersect(multiples,calc_multiples(i,limit))
        } else {
            multiples<-c(calc_multiples(i,limit))
        }

    }
    return(multiples)
}

find_common_multiples(c(3,5), 1000)

# Output
# -------------------------------------------------------------------------------
# [1]   0  15  30  45  60  75  90 105 120 135 150 165 180 195 210 225 240 255 270
#[20] 285 300 315 330 345 360 375 390 405 420 435 450 465 480 495 510 525 540 555
#[39] 570 585 600 615 630 645 660 675 690 705 720 735 750 765 780 795 810 825 840
#[58] 855 870 885 900 915 930 945 960 975 990