?trim ( seq quot: ( elt -- ? ) -- seq/newseq )


Vocabulary
sequences.extras

Inputs
seqa sequence
quota quotation


Outputs
seq/newseqan object


Word description
Similar to trim, but sequences that do not require trimming are left as is.

Definition
USING: kernel sequences sequences.private ;

IN: sequences.extras

: ?trim ( seq quot: ( elt -- ? ) -- seq/newseq )
over empty?
[ drop ] [
over [ first-unsafe ] [ last-unsafe ] bi pick either?
[ trim ] [ drop ] if
] if ; inline