2018-06-22 20:57:24 +00:00
|
|
|
rand.parens <- function(n) paste(sample(c("[","]"),2*n,replace=T),collapse="")
|
2013-04-10 12:38:42 -07:00
|
|
|
|
|
|
|
|
as.data.frame(within(list(), {
|
|
|
|
|
parens <- replicate(10, rand.parens(sample.int(10,size=1)))
|
|
|
|
|
balanced <- sapply(parens, balanced)
|
|
|
|
|
}))
|
