reassemble-bytes ( range -- quot )


Vocabulary
endian.private

Inputs
rangean object


Outputs
quotan object


Definition
USING: combinators combinators.smart kernel math sequences ;

IN: endian.private

: reassemble-bytes ( range -- quot )
[ [ [ ] ] [ [ shift ] curry ] if-zero ] map [ spread ] curry
[ [ bitor ] reduce-outputs ] curry ; inline