hash32-5to12 ( bytes seed -- hash )

Vocabulary

checksums.cityhash.private

Inputs

bytes	an object
seed	an object

Outputs

hash

an object

Definition

USING: math math.bitwise sequences ;

IN: checksums.cityhash.private

:: hash32-5to12 ( bytes seed -- hash )
    bytes length :> len len 5 w* :> b b seed w+
    len bytes 0 fetch32 w+ mur b bytes len 4 - fetch32 w+ mur
    bytes len -1 shift 4 bitand fetch32 9 w+ mur seed bitxor
    fmix ;