(best-omaha-hand) ( seq -- pair )


Vocabulary
poker

Inputs
seqan object


Outputs
pairan object


Definition
USING: arrays kernel math.combinatorics sequences
sequences.product ;

IN: poker

: (best-omaha-hand) ( seq -- pair )
4 cut [ 2 all-combinations ] [ 3 all-combinations ] bi*
2array
[ concat [ best-holdem-hand drop ] keep ] { }
product-map>assoc ;