compare-holdem-hands ( holes deck n -- seq )

Vocabulary

poker

Inputs

holes	an object
deck	an object
n	an object

Outputs

seq

an object

Definition

USING: assocs kernel math.statistics random sequences ;

IN: poker

:: compare-holdem-hands ( holes deck n -- seq )
    n [
        holes deck 5 sample
        [ append best-holdem-hand drop ] curry [ keep ] curry
        map>alist minimum second
    ] replicate histogram ;