reject-map ( ... seq filter-quot: ( ... elt -- ... ? ) map-quot: ( obj -- obj' ) -- ... newseq )

Vocabulary

sequences.extras

Inputs

seq	an object
filter-quot	a quotation with stack effect ( ... elt -- ... ? )
map-quot	a quotation with stack effect ( obj -- obj' )

Outputs

newseq

an object

Definition

USING: kernel ;

IN: sequences.extras

: reject-map
    ( ... seq filter-quot: ( ... elt -- ... ? ) map-quot: ( obj -- obj' ) -- ... newseq )
    pick reject-map-as ; inline