[firstn] ( length -- quot )

Vocabulary

memoize.private

Inputs

length

an object

Outputs

quot

an object

Definition

USING: kernel math sequences sequences.private ;

IN: memoize.private

: [firstn] ( length -- quot )
    [ 0 swap ] swap
    [ [ nth-unsafe ] 2keep [ 1 + ] dip ] (n*quot)
    [ 2drop ] 3append ;