multibase> ( multibase -- seq )

Vocabulary

multibase

Inputs

multibase

an object

Outputs

seq

an object

Definition

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

IN: multibase

: multibase> ( multibase -- seq )
    unclip {
        { 48 [ 8 <groups> [ bin> ] map ] }
        { 55 [ 3 <groups> [ oct> ] map ] }
        { 57 [ 3 <groups> [ dec> ] map ] }
        { 102 [ base16> ] }
        { 70 [ base16> ] }
        { 118 [ base32hex> ] }
        { 86 [ base32hex> ] }
        { 116 [ base32hex> ] }
        { 84 [ base32hex> ] }
        { 98 [ base32> ] }
        { 66 [ base32> ] }
        { 99 [ base32> ] }
        { 67 [ base32> ] }
        { 107 [ base36> ] }
        { 75 [ base36> ] }
        { 82 [ base45> ] }
        { 122 [ base58> ] }
        { 109 [ base64> ] }
        { 77 [ base64> ] }
        { 117 [ urlsafe-base64> ] }
        { 85 [ urlsafe-base64> ] }
        { 112 [ quint> ] }
    } case ;