rank-bits ( cards -- q )

Vocabulary

poker.private

Inputs

cards

an object

Outputs

q

an object

Definition

USING: math sequences ;

IN: poker.private

: rank-bits ( cards -- q ) 0 [ bitor ] reduce -16 shift ;