extra/poker/poker-docs.factor

   1 USING: help.markup help.syntax math sequences ;
   2 IN: poker
   3
   4 HELP: best-holdem-hand
   5 { $values { "hand" sequence } { "n" integer } { "cards" sequence } }
   6 { $description "Creates a new poker hand containing the best possible combination of the cards specified in " { $snippet "seq" } "." }
   7 { $examples
   8     { $example "USING: kernel poker prettyprint ;"
   9         "HAND{ AS KD JC KH 2D 2S KC } best-holdem-hand drop value>hand-name ."
  10         "\"Full House\""
  11     }
  12 } ;
  13
  14 HELP: <deck>
  15 { $values { "deck" sequence } }
  16 { $description "Returns a vector containing a standard, shuffled deck of 52 cards." } ;