randomize poker decks in <deck> word

slavapestov · Dec 8, 2009 · c975a3c · c975a3c
1 parent 37622f8
commit c975a3c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/extra/poker/poker-docs.factor b/extra/poker/poker-docs.factor
@@ -13,4 +13,4 @@ HELP: best-holdem-hand
 
 HELP: <deck>
 { $values { "deck" sequence } }
-{ $description "Returns a vector containing a standard, unshuffled deck of 52 cards." } ;
+{ $description "Returns a vector containing a standard, shuffled deck of 52 cards." } ;
diff --git a/extra/poker/poker.factor b/extra/poker/poker.factor
@@ -183,7 +183,7 @@ PRIVATE>
 
 : <deck> ( -- deck )
     RANK_STR SUIT_STR 2array
-    [ concat >ckf ] V{ } product-map-as ;
+    [ concat >ckf ] V{ } product-map-as randomize ;
 
 : best-holdem-hand ( hand -- n cards )
     5 [ [ hand-value ] [ ] bi ] { } map>assoc-combinations
@@ -198,9 +198,6 @@ PRIVATE>
 : string>value ( string -- value )
     parse-cards best-holdem-hand drop ;
 
-: shuffle ( deck -- deck )
-    [ randomize ] change-cards ;
-
 ERROR: no-card card deck ;
 
 : draw-specific-card ( card deck -- card )