3 lines
81 B
R
3 lines
81 B
R
balanced <- function(str) {
|
|
regexpr('^(\\[(?1)*\\])*$', str, perl=TRUE) > -1
|
|
}
|
balanced <- function(str) {
|
|
regexpr('^(\\[(?1)*\\])*$', str, perl=TRUE) > -1
|
|
}
|