prime-bits ( cards -- q )


Vocabulary
poker.private

Inputs
cardsan object


Outputs
qan object


Definition
USING: math sequences.extras ;

IN: poker.private

: prime-bits ( cards -- q ) [ 255 bitand ] map-product ;