zbase32>ch ( ch -- ch )

Vocabulary

base32.private

Inputs

ch

an object

Outputs

ch

an object

Definition

USING: base32 kernel kernel.private math sequences ;

IN: base32.private

: zbase32>ch ( ch -- ch )
    {
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        18
        f
        25
        26
        27
        30
        29
        7
        31
        f
        f
        f
        0
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        f
        24
        1
        ~24 more~
    } nth [ malformed-zbase32 ] unless* { fixnum } declare ;
    inline