https://atcoder.jp/contests/abc453/tasks/abc453_c1回ずつ再帰的に進めばの計算量ですが、時間がギリギリです。 v <- scan("stdin", integer()) N <- v[1] L <- v[2:(N+1)] F <- function(L, i, x) { if(i == N + 1) { return(0) } x1 <- x + L[i] # 正方向に進む n1 <- F(L, i+1, x1) if(x < 0 && 0 < x1) { n1 <- n1 + 1 } x2 <- x - L[i] n2 <- F(L, i+1,…