>card-rank ( card -- string )

Vocabulary

poker.private

Inputs

card

an object

Outputs

string

an object

Definition

USING: math sequences ;

IN: poker.private

: >card-rank ( card -- string ) -8 shift 15 bitand RANKS nth ;