hash128 ( bytes -- hash )

Vocabulary

checksums.cityhash.private

Inputs

bytes

an object

Outputs

hash

an object

Definition

USING: kernel math math.bitwise sequences ;

IN: checksums.cityhash.private

:: hash128 ( bytes -- hash )
    bytes length 16 >= [
        bytes 16 tail-slice bytes 0 fetch64 bytes 8 fetch64
        k0 W+ >uint128 hash128-seeded
    ] [ bytes k0 k1 >uint128 hash128-seeded ] if ;