stay-same? ( s1 s2 transition partitions -- ? )

Vocabulary

regexp.minimize

Inputs

s1	an object
s2	an object
transition	an object
partitions	an object

Outputs

?

an object

Definition

USING: accessors assocs kernel ;

IN: regexp.minimize

: stay-same? ( s1 s2 transition partitions -- ? )
    [ [ transitions>> at ] curry bi@ ] dip
    [ [ [ at ] dip ] ] dip [ same-partition? ] curry compose
    with assoc-all? ;