card-bitfield ( rank rank suit rank -- n )

Vocabulary

poker.private

Inputs

rank	an object
rank	an object
suit	an object
rank	an object

Outputs

n

an object

Definition

USING: math.bitwise ;

IN: poker.private

: card-bitfield ( rank rank suit rank -- n )
    {
        { card-rank-bit 16 }
        { card-suit 12 }
        { card-rank 8 }
        { card-rank-prime 0 }
    } bitfield ;