2reject-map ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ? ) map-quot: ( elt1 elt2 -- obj ) -- ... newseq )

Vocabulary

sequences.extras

Inputs

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

Outputs

newseq

an object

Definition

USING: kernel ;

IN: sequences.extras

: 2reject-map
    ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ? ) map-quot: ( elt1 elt2 -- obj ) -- ... newseq )
    pick 2reject-map-as ; inline