group-map-as ( seq quot exemplar n -- result )


Vocabulary
grouping.extras

Inputs
seqa sequence
quota quotation
exemplaran object
nan integer


Outputs
resultan object


Word description
A version of group-map that returns a sequence of the same class as exemplar.

Definition
USING: grouping kernel sequences sequences.generalizations ;

IN: grouping.extras

:: group-map-as ( seq quot exemplar n -- result )
seq n short-groups n <groups>
[ n firstn-unsafe quot call ] exemplar map-as ; inline