output>sequence-n ( quot exemplar n -- quot )


Vocabulary
combinators.smart

Inputs
quotan object
exemplaran object
nan object


Outputs
quotan object


Definition
USING: generalizations kernel math sequences.generalizations ;

IN: combinators.smart

MACRO: output>sequence-n ( quot exemplar n -- quot )
3dup nip [ outputs ] dip - -rot [ [ nsequence ] 2curry ] dip
[ ndip ] 2curry compose ;