Contents

sum_of_multiples <- function(factors, limit) {
  
  get_mults <- function(factor) {
    
    max_mult <- ceiling(limit / factor) - 1
    if (max_mult > 0) {
      new_multiples <- factor * 1:max_mult
    }
    
  }
  
  multiples <- unique(unlist(lapply(factors, FUN = get_mults)))
  
  return(sum(as.numeric(multiples)))
  
}

Version data entries

309 entries across 309 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.179	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.178	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.177	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.176	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.175	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.174	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.173	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.172	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.171	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.170	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.169	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.167	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.166	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.165	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.164	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.163	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.162	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.161	tracks/r/exercises/sum-of-multiples/example.R
trackler-2.2.1.160	tracks/r/exercises/sum-of-multiples/example.R