main-loop ( seq hash -- seq hash' )

Vocabulary

checksums.murmur.private

Inputs

seq	an object
hash	an object

Outputs

seq	an object
hash'	an object

Definition

USING: alien alien.c-types alien.data byte-arrays endian
grouping kernel math ranges sequences ;

IN: checksums.murmur.private

: main-loop ( seq hash -- seq hash' )
    over byte-array? little-endian? and [
        [ 0 over length 4 - 4 <range> ] dip
        [ pick <displaced-alien> int deref hash-chunk ] reduce
    ] [
        [ dup length 4 mod dupd head-slice* 4 <groups> ] dip
        [ le> hash-chunk ] reduce
    ] if ; inline