2009-11-28 19:11:42 -05:00
|
|
|
USING: help.markup help.syntax math sequences strings ;
|
2009-04-07 18:34:20 -04:00
|
|
|
IN: poker
|
|
|
|
|
2009-11-28 19:11:42 -05:00
|
|
|
HELP: best-holdem-hand
|
|
|
|
{ $values { "hand" sequence } { "n" integer } { "cards" sequence } }
|
|
|
|
{ $description "Creates a new poker hand containing the best possible combination of the cards specified in " { $snippet "seq" } "." }
|
2009-04-07 18:34:20 -04:00
|
|
|
{ $examples
|
|
|
|
{ $example "USING: kernel poker prettyprint ;"
|
2009-11-28 19:11:42 -05:00
|
|
|
"HAND{ AS KD JC KH 2D 2S KC } best-holdem-hand drop value>hand-name ."
|
2015-07-26 01:59:56 -04:00
|
|
|
"\"Full House\""
|
2009-11-28 19:11:42 -05:00
|
|
|
}
|
2009-05-07 16:54:49 -04:00
|
|
|
} ;
|
|
|
|
|
2009-05-07 18:50:46 -04:00
|
|
|
HELP: <deck>
|
2009-11-28 19:11:42 -05:00
|
|
|
{ $values { "deck" sequence } }
|
2009-12-07 20:28:11 -05:00
|
|
|
{ $description "Returns a vector containing a standard, shuffled deck of 52 cards." } ;
|