perfect-hash-find ( q -- value )


Vocabulary
poker.private

Inputs
qan object


Outputs
valuean object


Definition
USING: kernel math math.bitwise poker.arrays sequences ;

IN: poker.private

: perfect-hash-find ( q -- value )
3910838837 + dup -16 shift bitxor dup 8 shift w+
dup -4 shift bitxor
[ -8 shift 511 bitand adjustments-table nth ]
[ dup 2 shift w+ -19 shift ] bi bitxor values-table nth ;