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

Vocabulary

checksums.superfast.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.superfast.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 (main-loop) ] reduce
    ] [
        [ dup length 4 mod dupd head-slice* 4 <groups> ] dip
        [ le> (main-loop) ] reduce
    ] if ; inline