nnew-like ( len exemplar... quot n -- result... )


Vocabulary
sequences.generalizations

Inputs
lenan object
exemplar...an object
quotan object
nan object


Outputs
result...an object


Definition
USING: generalizations kernel sequences ;

IN: sequences.generalizations

: nnew-like ( len exemplar... quot n -- result... )
5 dupn [ [ nnew-sequence ] curry [ dip call ] curry ] 3dip [
[
[ [ [ nover ] curry ] dip ] dip
[ ndip [ like ] ] 2curry compose
] dip [ apply-curry ] curry compose
] dip [ spread* ] curry compose call ; inline