카타 7급 Functions of Integers on Cartesian Plane

2 R

sumin <- function(n) {
  s = 0
  for(i in 1:n) {
    s = s+(2*(n-i)+1)*i
  }
  s
}

sumax <- function(n) {
  s = 0
  for(i in 1:n) {
    s = s+(2*i-1)*i
  }
  s
}

sumsum <- function(n) {
  s = 0
  for(i in 1:n) {
    for(j in 1:n) {
      s = s + i + j
    }
  }
  s
}