class-partitions ( classes -- assoc )

Vocabulary

regexp.disambiguate

Inputs

classes

an object

Outputs

assoc

an object

Definition

USING: arrays assocs kernel math sequences ;

IN: regexp.disambiguate

:: class-partitions ( classes -- assoc )
    classes
    [ integer? ] partition :> ( integers classes ) classes
    powerset-partition classes integers add-integers
    [ [ partition>class ] [ ] bi 2array ] map sift-keys integers
    [ classes singleton-partition ] map append ;