base62> ( base62 -- seq )


Vocabulary
base62

Inputs
base62an object


Outputs
seqan object


Definition


:: 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 ;