base36> ( base36 -- seq )
Base36 conversions
Prev:>base36 ( seq -- base36 )


Vocabulary
base36

Inputs
base36a sequence


Outputs
seqa sequence


Word description
Decode from Base36 encoding.

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 ;