compression-lengths ( a b -- len(a+b) len(a) len(b) )

Vocabulary

math.extras

Inputs

a	an object
b	an object

Outputs

len(a+b)	an object
len(a)	an object
len(b)	an object

Definition

USING: accessors byte-arrays compression.zlib kernel sequences ;

IN: math.extras

: compression-lengths ( a b -- len(a+b) len(a) len(b) )
    [ append ] 2keep [ >byte-array compress data>> length ] tri@
    ;