应用或外部函数无循环

Question

A = function(j,x){
  if(x<0 & x>j){stop(print(1))}
   else{
     s=0
     for(k in 0:x){
      s = s + ((j-1) * ((2)^k) * x)
    }
  }
 return(s)
}

附带说明一下，有人知道如何不使用循环并使用外部函数或应用程序来运行此函数吗？

Answer 1

像这样：？

j <- 2
x <- 2

A(j, x)
# [1] 14

A2  <- function(j, x){
  if(x<0 & x>j) {
    stop(print(1))
    } else {
      s <- sum((j-1) * 2^(0:x) * x)
  }
  return(s)
}

A2(j, x)
# [1] 14