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 ] bi@ ] dip
    '[ [ at ] dip _ same-partition? ] with assoc-all? ;