filter-all-subseqs-range ( ... seq range quot: ( ... subseq -- ... ? ) -- seq )

Vocabulary

sequences.extras

Inputs

seq	a sequence
range	an object
quot	a quotation

Outputs

seq	a sequence

Word description

Perform a filter on all the subsequences of the given sequence that have length within range, and push a sequence containing the subsequences that satisfy the condition given by quot.

Definition

USING: grouping kernel sequences ;

IN: sequences.extras

: filter-all-subseqs-range
    ( ... seq range quot: ( ... subseq -- ... ? ) -- seq )
    [
        [ [ <clumps> ] ] dip [ filter ] curry compose with map
        concat
    ] keepdd map-like ; inline