fletcher ( seq k -- n )

Vocabulary

checksums.fletcher

Inputs

seq	an object
k	an object

Outputs

n

an object

Definition

USING: endian grouping kernel math sequences ;

IN: checksums.fletcher

:: fletcher ( seq k -- n )
    k 16 / :> chars k 2 / 2^ :> base base 1 -
    :> modulo 0 0 seq chars <groups>
    [ be> + modulo mod [ + modulo mod ] keep ] each
    [ base * ] [ + ] bi* ; inline