sum-vec ( vec -- n )

Vocabulary

compression.gzip.private

Inputs

vec

an object

Outputs

n

an object

Definition

USING: arrays kernel sequences ;

IN: compression.gzip.private

: sum-vec ( vec -- n )
    [ dup array? [ first ] [ drop 1 ] if ] map-sum ;