base16>ch ( ch -- ch )

Vocabulary

base16.private

Inputs

ch

an object

Outputs

ch

an object

Definition

USING: base16 kernel kernel.private math sequences ;

IN: base16.private

: base16>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
        0
        1
        2
        3
        4
        5
        6
        7
        8
        9
        f
        f
        f
        f
        f
        f
        f
        10
        11
        12
        13
        14
        15
    } nth [ malformed-base16 ] unless* { fixnum } declare ;
    inline