6 lines
135 B
R
6 lines
135 B
R
|
balanced <- function(str){
|
||
|
|
str <- strsplit(str, "")[[1]]
|
||
|
|
str <- ifelse(str=='[', 1, -1)
|
||
|
|
all(cumsum(str) >= 0) && sum(str) == 0
|
||
|
|
}
|