same-partition? ( s1 s2 partitions -- ? )

Vocabulary

regexp.minimize

Inputs

s1	an object
s2	an object
partitions	an object

Outputs

?

an object

Definition

USING: arrays combinators.short-circuit kernel sets sorting ;

IN: regexp.minimize

: same-partition? ( s1 s2 partitions -- ? )
    { [ [ sort-pair 2array ] dip in? ] [ drop = ] } 3|| ;