<and-class> ( seq -- class )

Vocabulary

regexp.classes

Inputs

seq

an object

Outputs

class

an object

Definition

USING: accessors combinators kernel sequences ;

IN: regexp.classes

: <and-class> ( seq -- class )
    dup and-class flatten
    partition-classes dup integers>> length {
        { 0 [ nip make-and-class ] }
        {
            1
            [
                integers>> first
                [ [ swap class-member? ] curry all? ] 1guard
            ]
        }
        [ 3drop f ]
    } case ;