answer-ands ( partition -- partition' )

Vocabulary

regexp.classes

Inputs

partition

an object

Outputs

partition'

an object

Definition

USING: accessors kernel sequences ;

IN: regexp.classes

: answer-ands ( partition -- partition' )
    dup [ integers>> ] [ not-simples>> ] [ simples>> ] tri
    3append [ [ f (substitute) ] each ] curry [ map ] curry
    change-and ;