[nsequence] ( length exemplar -- quot )

Vocabulary

memoize.private

Inputs

length	an object
exemplar	an object

Outputs

quot

an object

Definition

USING: kernel math sequences sequences.private ;

IN: memoize.private

: [nsequence] ( length exemplar -- quot )
    [ [ [ 1 - ] keep ] dip [ new-sequence ] 3curry ]
    [ drop [ [ set-nth-unsafe ] 2keep [ 1 - ] dip ] (n*quot) ]
    2bi [ nip ] 3append ;