transitions-at ( transition-table assoc -- transition-table )

Vocabulary

regexp.transition-tables

Inputs

transition-table	an object
assoc	an object

Outputs

transition-table

an object

Definition

USING: accessors assocs kernel regexp.classes ;

IN: regexp.transition-tables

: transitions-at
    ( transition-table assoc -- transition-table )
    [ clone ] dip
    [ [ condition-at ] curry change-start-state ]
    [ [ at ] curry [ map-set ] curry change-final-states ]
    [ [ number-transitions ] curry change-transitions ] tri ;