singleton-partition ( integer non-integers -- {class,partition} )

Vocabulary

regexp.disambiguate

Inputs

integer	an object
non-integers	an object

Outputs

{class,partition}

an object

Definition

USING: arrays kernel regexp.classes sequences ;

IN: regexp.disambiguate

: singleton-partition
    ( integer non-integers -- {class,partition} )
    dupd [ [ class-member? ] with filter ] curry keep prefix
    f parts boa 2array ;