2filter-map-as ( ... seq1 seq2 filter-quot: ( ... elt1 elt2 -- ... ? ) map-quot: ( elt1 elt2 -- obj ) exemplar -- ... newseq )

Vocabulary

sequences.extras

Inputs

seq1	an object
seq2	an object
filter-quot	a quotation with stack effect ( ... elt1 elt2 -- ... ? )
map-quot	a quotation with stack effect ( elt1 elt2 -- obj )
exemplar	an object

Outputs

newseq

an object

Definition

USING: generalizations kernel sequences sequences.extras.private
;

IN: sequences.extras

: 2filter-map-as
    ( ... seq1 seq2 filter-quot: ( ... elt1 elt2 -- ... ? ) map-quot: ( elt1 elt2 -- obj ) exemplar -- ... newseq )
    5 npick length over
    [ 2filter-mapper-for [ 2each ] dip ] 2curry dip like ;
    inline