问题是要获取一个输入= base_pluck <- function(x,...) {
dots <- list(...)
for(i in dots) {
if (is.numeric(i) && i>=1 && i <= length(x)) {
x <- x[[i]]
} else if( is.character(i) && hasname(x,i)) {
x <- x[[i]]
} else {
return(NA)
}
}
x
}
sapply(li,function(x) base_pluck(x,1,"b","l",2))
，然后接受与n一样多的输入并输出，就像这样：
这意味着什么：
n和
f(1,1) → 1
f(1,2) → 3
f(1,3) → 6
f(2,2) → 2
f(2,3) → 5
f(3,3) → 3
我想到的是这个
answer = 1 + 3 + 6 + 2 + 5 + 3 = 20 → ans = 1+3+6+2+5+3 = 20
但是由于超过1秒的时间限制，因此不被接受。
如何使运行速度更快？