1filter-mapper-for ( filter-quot map-quot length exemplar -- filter-mapper accum )


Vocabulary
sequences.extras.private

Inputs
filter-quotan object
map-quotan object
lengthan object
exemplaran object


Outputs
filter-mapperan object
accuman object


Definition
USING: kernel sequences ;

IN: sequences.extras.private

: 1filter-mapper-for
( filter-quot map-quot length exemplar -- filter-mapper accum )
new-resizable [ [ 1push-map-when ] 3curry ] keep ; inline