Add docs for best-hand in poker vocab

diff --git a/extra/poker/poker-docs.factor b/extra/poker/poker-docs.factor
index 09019a29d729392b352fff57915594f1abe92bba..ad2131870e7e351221e64686937d758f37b57be9 100644 (file)
--- a/extra/poker/poker-docs.factor
+++ b/extra/poker/poker-docs.factor
@@ -28,3 +28,11 @@ HELP: >value
         "\"AC KC QC JC TC\" <hand> >value ." "\"Straight Flush\"" }
 }
 { $notes "This should not be used as a basis for hand comparison." } ;
+
+HELP: best-hand
+{ $values { "str" string } { "hand" "a new hand" } }
+{ $description "Creates a new poker hand containing the best possible combination of the cards specified in " { $snippet "str" } "." }
+{ $examples
+    { $example "USING: kernel poker prettyprint ;"
+        "\"AS KD JC KH 2D 2S KH\" best-hand >value ." "\"Full House\"" }
+} ;