byte-array>le ( byte-array -- byte-array )

Vocabulary

checksums.ripemd.private

Inputs

byte-array

an object

Outputs

byte-array

an object

Definition

USING: alien.data grouping kernel sequences sequences.private ;

IN: checksums.ripemd.private

: byte-array>le ( byte-array -- byte-array )
    little-endian? [
        dup 4 <groups> [
            [ [ 1 2 ] dip exchange-unsafe ]
            [ [ 0 3 ] dip exchange-unsafe ] bi
        ] each
    ] unless ;