(ABCDE) ( x state a b c d e k S s T quot -- )

Vocabulary

checksums.ripemd.private

Inputs

x	an object
state	an object
a	an object
b	an object
c	an object
d	an object
e	an object
k	an object
S	an object
s	an object
T	an object
quot	an object

Outputs

None

Definition

USING: kernel math.bitwise sequences.private ;

IN: checksums.ripemd.private

:: (ABCDE) ( x state a b c d e k S s T quot -- )
    a state [
        b state nth-unsafe c state nth-unsafe d state nth-unsafe
        quot call w+ k x nth-unsafe w+ T w+ s S nth-unsafe
        bitroll-32 e state nth-unsafe w+
    ] change-nth-unsafe c state
    [ 10 bitroll-32 ] change-nth-unsafe ; inline