joined-length ( seq glue -- n )


Vocabulary
sequences.private

Inputs
seqan object
gluean object


Outputs
nan object


Definition
USING: kernel math math.order sequences ;

IN: sequences.private

: joined-length ( seq glue -- n )
[ [ sum-lengths ] [ length 1 [-] ] bi ] dip length * + ;