seq-shorten ( seq n -- seq )


Vocabulary
sequences.seq

Inputs
seqan object
nan object


Outputs
seqan object


Definition
IN: sequences.seq

GENERIC#: seq-shorten 1 ( seq n -- seq )


Methods
USING: kernel math sequences sequences.seq ;

M: sequence seq-shorten
2dup lengthd > [ seq-set-length ] [ drop ] if ; inline