filter-map-as* ( ... seq quot: ( ..a elt -- ..b obj ? ) exemplar -- ... newseq )

Vocabulary

sequences.extras

Inputs

seq	an object
quot	a quotation with stack effect ( ..a elt -- ..b obj ? )
exemplar	an object

Outputs

newseq

an object

Definition

USING: kernel sequences sequences.extras.private ;

IN: sequences.extras

: filter-map-as*
    ( ... seq quot: ( ..a elt -- ..b obj ? ) exemplar -- ... newseq )
    pick length over [ filter-mapper-for* [ each ] dip ] 2curry
    dip like ; inline