USING: help.markup help.syntax strings ;
IN: poker

HELP: <hand>
{ $values { "str" string } { "hand" "a new hand" } }
{ $description "Creates a new poker hand containing the cards specified in " { $snippet "str" } "." }
{ $examples
    { $example "USING: math.order poker prettyprint ;"
        "\"AC KC QC JC TC\" \"7C 6D 5H 4S 2C\" [ <hand> ] bi@ <=> ." "+lt+" }
    { $example "USING: poker prettyprint ;"
        "\"TC 9C 8C 7C 6C\" \"TH 9H 8H 7H 6H\" [ <hand> ] bi@ = ." "t" }
}
{ $notes "Cards may be specified in any order. Hands are directly comparable to each other on the basis of their computed value. Two hands are considered equal when they would tie in a game (despite being composed of different cards)." } ;


! -------------------------------------------

( scratchpad ) "poker" help-lint
Checking poker...
Checking poker.arrays...
Checking poker.private...

==== poker:

In <hand>
Assertion failed
Expect: "+lt+"
Got:    "2: \"AC KC QC JC TC\" \"7C 6D 5H 4S 2C\" [ <hand> ] bi@ <=> .\n   ..."