base36> ( base36 -- seq )


Vocabulary
base36

Inputs
base36an object


Outputs
seqan object


Definition
USING: base36.private kernel math sequences ;

IN: base36

:: base36> ( base36 -- seq )
BV{ } clone :> accum base36 alphabet first [ = not ] curry
find [ drop base36 length ] unless :> i 0 base36
[ [ 36 * ] dip base36>ch + ] i each-from
[ 256 /mod accum push ] until-zero i [ 0 accum push ] times
accum reverse! B{ } like ;