state-classes ( transition-table -- synonyms )

Vocabulary

regexp.minimize

Inputs

transition-table

an object

Outputs

synonyms

an object

Definition

USING: accessors assocs kernel ;

IN: regexp.minimize

: state-classes ( transition-table -- synonyms )
    clone
    [ [ nip has-conditions? ] assoc-partition ]
    change-transitions
    [ assoc>set ] [ (state-classes) partition>classes ] bi*
    assoc-union ;