symbol>suit ( ch -- ch' )

Vocabulary

poker

Inputs

ch

an object

Outputs

ch'

an object

Definition

USING: ascii assocs kernel ;

IN: poker

: symbol>suit ( ch -- ch' )
    ch>upper H{
        { 9824 83 }
        { 9827 67 }
        { 83 83 }
        { 9829 72 }
        { 9830 68 }
        { 68 68 }
        { 72 72 }
        { 67 67 }
    } ?at [ bad-suit-symbol ] unless ;