filter-integers ( partition -- partition' )

Vocabulary

regexp.classes

Inputs

partition

an object

Outputs

partition'

an object

Definition

USING: accessors kernel sequences ;

IN: regexp.classes

: filter-integers ( partition -- partition' )
    dup [ simples>> ] [ not-simples>> ] [ and>> ] tri 3append
    or-class boa [ class-member? ] curry [ reject ] curry
    change-integers ;