[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 ] curry [ keep ] curry ] map
    [ ] concat-as [ drop ] compose ;