hash32-13to24 ( bytes -- hash )

Vocabulary

checksums.cityhash.private

Inputs

bytes

an object

Outputs

hash

an object

Definition

USING: math sequences ;

IN: checksums.cityhash.private

:: hash32-13to24 ( bytes -- hash )
    bytes length :> len len bytes len -1 shift 4 - fetch32 mur
    bytes 4 fetch32 mur bytes len 8 - fetch32 mur
    bytes len -1 shift fetch32 mur bytes 0 fetch32 mur
    bytes len 4 - fetch32 mur fmix ;