>card-suit ( card -- string )

Vocabulary

poker.private

Inputs

card

an object

Outputs

string

an object

Definition

USING: combinators kernel math ;

IN: poker.private

: >card-suit ( card -- string )
    {
        { [ dup 15 bit? ] [ drop "C" ] }
        { [ dup 14 bit? ] [ drop "D" ] }
        { [ dup 13 bit? ] [ drop "H" ] }
        [ drop "S" ]
    } cond ;