[nsequence] ( length exemplar -- quot )


Vocabulary
memoize.private

Inputs
lengthan object
exemplaran object


Outputs
quotan object


Definition
USING: kernel sequences ;

IN: memoize.private

: [nsequence] ( length exemplar -- quot )
over [set-firstn] over
[ [ [ new-sequence ] 2curry ] dip compose ] dip
[ like ] curry compose ;