14 lines
316 B
Text
14 lines
316 B
Text
gen_brackets:{"[]"@x _draw 2}
|
|
check:{r:(-1;1)@"["=x; *(0=+/cs<'0)&(0=-1#cs:+\r)}
|
|
|
|
{(x;check x)}' gen_brackets' 2*1+!10
|
|
(("[[";0)
|
|
("[][]";1)
|
|
("][][]]";0)
|
|
("[[][[][]";0)
|
|
("][]][[[[[[";0)
|
|
("]]][[]][]]][";0)
|
|
("[[[]][[[][[[][";0)
|
|
("[[]][[[]][]][][]";1)
|
|
("][[][[]]][[]]]][][";0)
|
|
("]][[[[]]]][][][[]]]]";0))
|