interleaved-checksum ( bytes checksum -- seq )

Vocabulary

checksums.interleave

Inputs

bytes	an object
checksum	an object

Outputs

seq

an object

Definition

USING: checksums kernel math sequences ;

IN: checksums.interleave

:: interleaved-checksum ( bytes checksum -- seq )
    bytes [ zero? ] trim-head dup length odd?
    [ rest-slice ] when seq>2seq [ checksum checksum-bytes ] bi@
    2seq>seq ;