filter-index-as ( ... seq quot: ( ... elt i -- ... ? ) exemplar -- ... seq' )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation
exemplar	an object

Outputs

seq'	a sequence

Word description

Perform a filter-as on the given sequence, with the index provided as an additional argument to quot. Outputs a sequence of the same class as exemplar.

Definition

USING: kernel sequences sequences.extras.private ;

IN: sequences.extras

: filter-index-as
    ( ... seq quot: ( ... elt i -- ... ? ) exemplar -- ... seq' )
    pick length over
    [ (index-selector-as) [ each-index ] dip ] 2curry dip like ;
    inline