unlinear ( num -- bytes )


Vocabulary
io.encodings.gb18030.private

Inputs
numan object


Outputs
bytesan object


Definition
USING: byte-arrays kernel math sequences ;

IN: io.encodings.gb18030.private

: unlinear ( num -- bytes )
B{ 129 48 129 48 } linear - 10 /mod 48 + swap 126 /mod 129 +
swap 10 /mod 48 + swap 129 + 4byte-array reverse! ;