base62> ( base62 -- seq )
Base62 conversions
Prev:>base62 ( seq -- base62 )


Vocabulary
base62

Inputs
base62a sequence


Outputs
seqa sequence


Word description
Decode from Base62 encoding.

Definition
USING: base62.private kernel math sequences ;

IN: base62

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