decode-digit ( ch -- digit )

Vocabulary

punycode.private

Inputs

ch

an object

Outputs

digit

an object

Definition

USING: ascii combinators kernel math ;

IN: punycode.private

: decode-digit ( ch -- digit )
    {
        { [ dup LETTER? ] [ 65 - ] }
        { [ dup digit? ] [ 48 26 - - ] }
        [ invalid-digit ]
    } cond ;