prefix-hash ( i bytes -- hash )


Vocabulary
compression.deflate.private

Inputs
ian object
bytesan object


Outputs
hashan object


Definition
USING: math sequences ;

IN: compression.deflate.private

:: prefix-hash ( i bytes -- hash )
i bytes nth 8 shift i 1 + bytes nth 4 shift bitxor i 2 +
bytes nth bitxor 65535 bitand ;