calculate-pad-length ( length -- length' )


Vocabulary
checksums.common

Inputs
lengthan object


Outputs
length'an object


Definition
USING: kernel math ;

IN: checksums.common

: calculate-pad-length ( length -- length' )
[ 56 < 55 119 ? ] keep - ;