uint-array>checksum ( seq -- bytes )

Vocabulary

checksums.sha.private

Inputs

seq

an object

Outputs

bytes

an object

Definition

USING: accessors kernel math sequences sequences.private ;

IN: checksums.sha.private

: uint-array>checksum ( seq -- bytes )
    [ underlying>> ] [ length ] bi [
        4 *
        [ dup 3 + pick exchange-unsafe ]
        [ 1 + dup 1 + pick exchange-unsafe ] bi
    ] each-integer ; inline