(trim-tail) ( seq quot -- seq n )

Vocabulary

sequences.private

Inputs

seq	an object
quot	an object

Outputs

seq	an object
n	an object

Definition

USING: kernel math sequences ;

IN: sequences.private

: (trim-tail) ( seq quot -- seq n )
    over [ negate find-last drop ?1+ ] dip swap ; inline