RosettaCodeData/Task/Balanced-brackets/R/balanced-brackets-2.r

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