head*-as ( seq n exemplar -- seq' )

Vocabulary

sequences.extras

Inputs

seq	a sequence
n	an integer
exemplar	an object

Outputs

seq'	a sequence

Word description

A version of head* where seq' is the same class as exemplar.

Definition

USING: kernel sequences ;

IN: sequences.extras

: head*-as ( seq n exemplar -- seq' )
    [ head-slice* ] [ like ] bi* ; inline