setup-each-from ( seq quot -- n quot )

Vocabulary

sequences.extras

Inputs

seq	an object
quot	an object

Outputs

n	an object
quot	an object

Definition

USING: kernel sequences sequences.private ;

IN: sequences.extras

: setup-each-from ( seq quot -- n quot )
    [ [ length ] keep [ nth-unsafe ] curry ] dip compose ;
    inline