card-suit ( suit -- n )


Vocabulary
poker.private

Inputs
suitan object


Outputs
nan object


Definition
USING: kernel math sequences ;

IN: poker.private

: card-suit ( suit -- n ) SUITS index 3 swap - 2^ ;