[firstn] ( length -- quot )

Vocabulary

memoize.private

Inputs

length

an object

Outputs

quot

an object

Definition

USING: kernel sequences sequences.private ;

IN: memoize.private

: [firstn] ( length -- quot )
    <iota> [ '[ [ _ swap nth-unsafe ] keep ] ] map [ ] concat-as
    '[ @ drop ] ;