joined-length ( seq -- n )


Vocabulary
format-using

Inputs
seqan object


Outputs
nan object


Definition
USING: kernel math sequences ;

IN: format-using

: joined-length ( seq -- n )
[ length ] keep [ length ] map-sum + ;