2filter-as ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... newelt ) exemplar -- ... newseq )


Vocabulary
sequences.extras

Inputs
seq1an object
seq2an object
quota quotation with stack effect ( ... elt1 elt2 -- ... newelt )
exemplaran object


Outputs
newseqan object


Definition


: 2filter-as
( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... newelt ) exemplar -- ... newseq )
[
pick [ length ] keep
[ (2selector-as) [ 2each ] dip ] 2curry call
] dip like ; inline