set-final-states ( nfa dfa -- )

Vocabulary

regexp.dfa

Inputs

nfa	an object
dfa	an object

Outputs

None

Definition

USING: accessors assocs kernel sequences sets ;

IN: regexp.dfa

: set-final-states ( nfa dfa -- )
    [
        [ final-states>> members ] [ transitions>> keys ] bi*
        [ intersects? ] with filter fast-set
    ] keep final-states<< ;