encode2 ( seq -- byte-array )


Vocabulary
base45.private

Inputs
seqan object


Outputs
byte-arrayan object


Definition
USING: byte-arrays endian kernel math sequences ;

IN: base45.private

: encode2 ( seq -- byte-array )
[ be> 45 /mod swap 45 /mod swap [ ch>base45 ] tri@ ]
[ length 2 < [ drop 2byte-array ] [ 3byte-array ] if ] bi ;
inline