base24>ch ( ch -- ch )

Vocabulary

base24.private

Inputs

ch

an object

Outputs

ch

an object

Definition

USING: base24 kernel kernel.private math sequences ;

IN: base24.private

: base24>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
        f
        3
        5
        8
        11
        14
        15
        17
        20
        f
        f
        f
        f
        f
        f
        f
        1
        4
        2
        f
        6
        7
        9
        10
        f
        f
        13
        f
        f
        f
        f
        16
        f
        18
        19
        12
        f
        f
        21
        22
        23
        0
    } nth [ malformed-base24 ] unless* { fixnum } declare ;