adler-32
Adler-32 checksum

Vocabulary
checksums.adler-32

Class description
Adler-32 checksum algorithm.

Definition

IN: checksums.adler-32

SINGLETON: adler-32

Methods

USING: checksums checksums.adler-32 kernel math math.ranges
math.vectors sequences ;

M: adler-32 checksum-bytes
    drop
    [ sum 1 + ]
    [ [ dup length [1,b] <reversed> vdot ] [ length ] bi + ] bi
    [ adler-32-modulus mod ] bi@ 16 shift bitor ;