set-length ( n seq -- )
Factor handbook » The language » Collections » Sequence operations » Sequence protocol

Prev:	?set-nth ( elt n seq -- )
Next:	lengthen ( n seq -- )

Vocabulary
sequences

Inputs

n	a non-negative integer
seq	a resizable sequence

Outputs
None

Generic word contract
Resizes a sequence. The initial contents of the new area is undefined.

Errors
Throws a no-method error if the sequence is not resizable, and a bounds-error if the new length is negative.

Side effects
Modifies seq

Examples

USING: kernel prettyprint sequences ; 6 V{ 1 2 3 } [ set-length ] keep .
V{ 1 2 3 0 0 0 }

USING: kernel prettyprint sequences ; 3 V{ 1 2 3 4 5 6 } [ set-length ] keep .
V{ 1 2 3 }

Definition

IN: sequences

GENERIC: set-length ( n seq -- )

Methods

USING: accessors sequences sequences.modified ;

M: 1modified set-length seq>> set-length ;


USING: accessors grouping kernel math sequences ;

M: clumps set-length [ n>> + 1 - ] [ seq>> ] bi set-length ;
    inline


USING: accessors sequences sequences.repeating ;

M: cycles set-length length<< ;


USING: accessors grouping kernel math sequences ;

M: groups set-length [ n>> * ] [ seq>> ] bi set-length ; inline


USING: accessors growable kernel math sequences
sequences.private ;

M: growable set-length
    bounds-check-head 2dup length <
    [ 2dup contract ] [ 2dup capacity > [ 2dup expand ] when ]
    if length<< ;


USING: accessors kernel math sequences sequences.inserters ;

M: offset-growable set-length
    [ offset>> + ] [ underlying>> ] bi set-length ; inline


USING: accessors kernel sequences sequences.modified ;

M: summed set-length seqs>> [ set-length ] with each ;


USING: accessors kernel sequences xml.data ;

M: tag set-length [ children>> ] call \ set-length execute ;


USING: accessors kernel sequences xml.data ;

M: xml-chunk set-length [ seq>> ] call \ set-length execute ;


USING: accessors kernel sequences xml.data ;

M: xml set-length [ body>> ] call \ set-length execute ;