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

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

seq	a sequence

Word description

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

Definition

USING: kernel ranges sequences ;

IN: sequences.extras

: filter-all-subseqs
    ( ... seq quot: ( ... subseq -- ... ? ) -- seq )
    [ dup length [1..b] ] dip filter-all-subseqs-range ; inline