clone-like ( seq exemplar -- newseq )

Vocabulary

sequences

Inputs

seq	a sequence
exemplar	a sequence

Outputs

newseq

a new sequence

Word description

Outputs a newly-allocated sequence with the same elements as seq but of the same type as exemplar.

Notes

Unlike like, this word always creates a new sequence which never shares storage with the original.

Examples

USING: prettyprint sequences ; { 1 2 3 } V{ } clone-like .
V{ 1 2 3 }

Demonstrating the lack of shared storage:

USING: kernel prettyprint sequences ; { 1 2 3 } dup V{ } clone-like reverse! [ . ] bi@
{ 1 2 3 } V{ 3 2 1 }

Definition

IN: sequences

GENERIC: clone-like ( seq exemplar -- newseq ) flushable

Methods

USING: byte-arrays generic kernel sequences ;

M: byte-array clone-like
    over byte-array?
    [ drop clone ]
    [ M\ byte-array clone-like (call-next-method) ] if ; inline


USING: sequences ;

M: immutable-sequence clone-like like ; inline


USING: kernel sequences sequences.private ;

M: sequence clone-like
    dupd new-sequence-like [ 0 swap copy-unsafe ] keep ; inline


USING: generic kernel sequences strings ;

M: string clone-like
    over string?
    [ drop clone ] [ M\ string clone-like (call-next-method) ]
    if ; inline


USING: accessors kernel sequences tensors ;

M: tensor clone-like
    over tensor?
    [ drop clone ] [
        [ >tensor ] dip 2dup 2length =
        [ shape>> reshape ] [ drop ] if
    ] if ;