(neach) ( seq... quot n -- len quot' )

Vocabulary

sequences.generalizations

Inputs

seq...	an object
quot	an object
n	an object

Outputs

len	an object
quot'	an object

Definition

USING: generalizations kernel ;

IN: sequences.generalizations

: (neach) ( seq... quot n -- len quot' )
    dup dup dup
    '[ [ _ nmin-length ] _ nkeep [ _ nnth-unsafe ] _ ncurry ]
    dip compose ; inline