balanced? ( str -- ? )

Vocabulary

rosetta-code.balanced-brackets

Inputs

str

an object

Outputs

?

an object

Definition

USING: combinators kernel math sequences ;

IN: rosetta-code.balanced-brackets

: balanced? ( str -- ? )
    0 swap [
        { { 91 [ 1 + t ] } { 93 [ 1 - dup 0 >= ] } [ drop t ] }
        case
    ] all? swap zero? and ;