(main-loop) ( hash n -- hash' )

Vocabulary

checksums.superfast.private

Inputs

hash	an object
n	an object

Outputs

hash'

an object

Definition

USING: kernel math math.bitwise ;

IN: checksums.superfast.private

: (main-loop) ( hash n -- hash' )
    [ 16 bits ] [ -16 shift ] bi
    [ + ] [ 11 shift dupd bitxor ] bi*
    [ 16 shift ] [ bitxor ] bi* 32 bits [ -11 shift ] [ + ] bi ;
    inline