(copy) ( n copy -- dst )

Vocabulary

sequences.private

Inputs

n	an object
copy	an object

Outputs

dst

an object

Definition

USING: accessors kernel math ;

IN: sequences.private

: (copy) ( n copy -- dst )
    over 0 <=
    [ nip dst>> ]
    [ [ 1 - ] dip [ copy-nth-unsafe ] [ (copy) ] 2bi ] if ;
    inline recursive