20 lines
408 B
Text
20 lines
408 B
Text
|
F gen(n)
|
|||
|
|
V txt = [‘[’, ‘]’] * n
|
|||
|
|
random:shuffle(&txt)
|
|||
|
|
R txt.join(‘’)
|
|||
|
|
|
|||
|
|
F is_balanced(s)
|
|||
|
|
V nesting_level = 0
|
|||
|
|
L(c) s
|
|||
|
|
S c
|
|||
|
|
‘[’
|
|||
|
|
nesting_level++
|
|||
|
|
‘]’
|
|||
|
|
I --nesting_level < 0
|
|||
|
|
R 0B
|
|||
|
|
R 1B
|
|||
|
|
|
|||
|
|
L(n) 0..9
|
|||
|
|
V s = gen(n)
|
|||
|
|
print(s‘’(‘ ’ * (20 - s.len))‘is ’(I is_balanced(s) {‘balanced’} E ‘not balanced’))
|