combine-ripemd-160 ( ripemd-160-state -- new-state )


Vocabulary
checksums.ripemd.private

Inputs
ripemd-160-statean object


Outputs
new-statean object


Definition
USING: accessors kernel math.bitwise sequences ;

IN: checksums.ripemd.private

: combine-ripemd-160 ( ripemd-160-state -- new-state )
[ old-state>> 1 cut prepend ] [ state1>> 2 cut prepend ]
[ state2>> 3 cut prepend ] tri [ w+ ] 2map [ w+ ] 2map ;
inline