hand-value ( cards -- value )

Vocabulary

poker.private

Inputs

cards

an object

Outputs

value

an object

Definition

USING: kernel math poker.arrays ;

IN: poker.private

: hand-value ( cards -- value )
    dup flush?
    [ flushes-table lookup ] [
        dup unique5-table lookup dup 0 >
        [ nip ] [ drop prime-bits perfect-hash-find ] if
    ] if ;