iterate ( n initial quot -- results )


Vocabulary
project-euler.203.private

Inputs
nan object
initialan object
quotan object


Outputs
resultsan object


Definition
USING: kernel sequences ;

IN: project-euler.203.private

: iterate ( n initial quot -- results )
swapd [ dup ] compose replicate nip ; inline