카타 8급 Sum of Multiples

목차

R[편집]

카타 8급 R
# 🔗 문제 풀이
카타 8급 R/1 e
🔗 카타 8급 Multiply e
🔗 카타 8급 Function 1 - hello world e
🔗 카타 8급 Sentence Smash e
🔗 카타 8급 Sum Arrays e
🔗 카타 8급 Find the smallest integer in the array e
🔗 카타 8급 Opposite number e
🔗 카타 8급 Sum of Multiples e
🔗 카타 8급 MakeUpperCase e
🔗 카타 8급 Calculate BMI e
🔗 카타 8급 Beginner - Lost Without a Map e
sum_mul <- function(n, m){
  if( n < 1 | m < 1 ) return("INVALID")
  if( n >= m ) return(0)
  sum(seq(from=n, to=(m-1), by=abs(n)))
}
sum_mul <- function(n, m){
  if( n < 1 | m < 1 ) return("INVALID")
  if( n >= m ) return(0)
  v <- c(n:(m-1))
  sum(v[v %% n == 0])
}
sum_mul <- function(n, m){
  if( n < 1 | m < 1 ) return("INVALID")
  t <- (m-1)%/%n
  n * t * (t+1) / 2
}
sum_mul <- function(n, m){
  if( n < 1 | m < 1 ) return("INVALID")
  x = n
  sum = 0
  while( x < m ) {
    sum = sum + x
    x = x + n
  }
  sum
}
문서 댓글 ({{ doc_comments.length }})
{{ comment.name }} {{ comment.created | snstime }}