Balanced brackets: Difference between revisions

=={{header|Ya}}==

<lang Ya>

@Balanced[]s

;Use @Std/StdIO

;`No Shuffle `Char[] brackets

;For; ++brackets

;`Int+ at = Random brackets/Length

;brackets[-1], brackets[at] = brackets[at], brackets[-1]

;`Char[=] MakeNew `Int+ len

;len & 1 ==0 ! // len must be even

;`Char[=] r(len)

;For `Char[] eye = r; eye; ++eye

;*eye = '['

;*++eye = '['

;Shuffle r

;Return r

;Bool AreBalanced `Char[] brackets

;`Int+ extra = 0;

;For; brackets; ++brackets

;Switch *brackets

'['

;++extra

']'

;If !!extra

;Return False

;--extra

;Return !!extra

`Int Main(`Char[][])

;For `Int n=10; n; --n

;`Char[=] brackets = MakeNew 10

;Print ;"%s : %s\n" ;`Char[=] brackets = MakeNew 10 ;(AreBalanced brackets) ? "Ok" : "bad"

;Return 0

</lang>