perfect-hash-find ( q -- value )

Vocabulary

poker.private

Inputs

q

an object

Outputs

value

an 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 ;