base58> ( base58 -- seq )
Base58 conversions

Prev:

>base58 ( seq -- base58 )

Vocabulary
base58

Inputs

base58

a sequence

Outputs

seq	a sequence

Word description
Decode from Base58 encoding.

Definition

USING: base58.private kernel math sequences ;

IN: base58

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