base58> ( base58 -- seq )

Vocabulary

base58

Inputs

base58

an object

Outputs

seq

an object

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 ;