<ripemd-160-state> ( -- ripemd-160 )


Vocabulary
checksums.ripemd

Inputs
None

Outputs
ripemd-160an object


Definition
USING: accessors checksums kernel
specialized-arrays.instances.alien.c-types.uint ;

IN: checksums.ripemd

: <ripemd-160-state> ( -- ripemd-160 )
ripemd-160-state new-checksum-state 64 >>block-size
uint-array{
1732584193
4023233417
2562383102
271733878
3285377520
} [ clone >>state1 ] [ clone >>state2 ] [ >>old-state ] tri
;