renumber-states ( transition-table -- transition-table )

Vocabulary

regexp.negation

Inputs

transition-table

an object

Outputs

transition-table

an object

Definition

USING: accessors assocs kernel regexp.nfa
regexp.transition-tables ;

IN: regexp.negation

: renumber-states ( transition-table -- transition-table )
    dup transitions>> keys [ next-state ] H{ } map>assoc
    transitions-at ;