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


Vocabulary
sequences.generalizations

Inputs
seq...an object
quotan object
nan object


Outputs
lenan object
quot'an object


Definition
USING: generalizations kernel ;

IN: sequences.generalizations

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