hash128-seeded ( bytes seed -- hash )

Vocabulary

checksums.cityhash.private

Inputs

bytes	an object
seed	an object

Outputs

hash

an object

Definition

USING: kernel math math.bitwise sequences ;

IN: checksums.cityhash.private

:: hash128-seeded ( bytes seed -- hash )
    seed 64 bits :> low seed -64 shift 64 bits
    :> high bytes length 128 <
    [ bytes low high city-murmur ]
    [ bytes low high hash128-long ] if ;