sum-lengths ( seq -- n )

Vocabulary

sequences

Inputs

seq	a sequence of sequences

Outputs

n	an integer

Word description

Outputs the sum of the lengths of all sequences in seq.

Examples

USING: prettyprint sequences ; { { 11 43 3.2 } { 1 } { 15 16 } } sum-lengths .
6

USING: prettyprint sequences ; { "hello" f { 1 2 3 } { } } sum-lengths .
8

Definition

IN: sequences

GENERIC: sum-lengths ( seq -- n )

Methods

USING: kernel math sequences ;

M: object sum-lengths 0 [ length + ] reduce ;


USING: accessors kernel math sequences ;

M: repetition sum-lengths [ length>> ] [ elt>> length ] bi * ;