filter-not-integers ( partition -- partition' )

Vocabulary

regexp.classes

Inputs

partition

an object

Outputs

partition'

an object

Definition

USING: accessors kernel sequences ;

IN: regexp.classes

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