Vocabulary
checksums.fletcher

Inputs
seqan object
kan object


Outputs
nan object


Definition


:: 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