card-rank ( rank -- n )


Vocabulary
poker.private

Inputs
rankan object


Outputs
nan object


Definition
USING: sequences ;

IN: poker.private

: card-rank ( rank -- n ) RANKS index ;