>multibase ( seq base-format -- multibase )

Vocabulary

multibase

Inputs

seq	an object
base-format	an object

Outputs

multibase

an object

Definition

USING: base16 base32 base36 base45 base58 base64 combinators
math.parser sequences ;

IN: multibase

: >multibase ( seq base-format -- multibase )
    {
        {
            "base2"
            [ [ >bin 8 48 pad-head ] map concat 48 prefix ]
        }
        {
            "base8"
            [ [ >oct 3 48 pad-head ] map concat 55 prefix ]
        }
        {
            "base10"
            [ [ >dec 3 48 pad-head ] map concat 57 prefix ]
        }
        { "base16" [ >base16 102 prefix ] }
        { "base16upper" [ >base16 70 prefix ] }
        { "base32hex" [ >base32hex 118 prefix ] }
        { "base32hexupper" [ >base32hex 86 prefix ] }
        { "base32hexpad" [ >base32hex-lines 116 prefix ] }
        { "base32hexpadupper" [ >base32hex-lines 84 prefix ] }
        { "base32" [ >base32 98 prefix ] }
        { "base32upper" [ >base32 66 prefix ] }
        { "base32pad" [ >base32-lines 99 prefix ] }
        { "base32padupper" [ >base32-lines 67 prefix ] }
        { "base36" [ >base36 107 prefix ] }
        { "base36upper" [ >base36 75 prefix ] }
        { "base45" [ >base45 82 prefix ] }
        { "base58btc" [ >base58 122 prefix ] }
        { "base64" [ >base64 109 prefix ] }
        { "base64pad" [ >base64-lines 77 prefix ] }
        { "base64url" [ >urlsafe-base64 117 prefix ] }
        { "base64urlpad" [ >urlsafe-base64-lines 85 prefix ] }
    } case ;