hash32-0to4 ( 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-0to4 ( bytes seed -- hash )
    seed :> b! 9 :> c! bytes
    [ 8 >signed b c1 w* w+ b! c b bitxor c! ] each
    c bytes length mur b mur fmix ;