randomize poker decks in <deck> word

diff --git a/extra/poker/poker-docs.factor b/extra/poker/poker-docs.factor
index 1d7d9ae5c64927aeeea52c89fe6760a2a3b8ccf8..ecdcf3f59108e6142fc52c68afc1e255465c0866 100644 (file)
--- 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
index 882d71887ecb57e7fa540138053af7c2fcf9ba25..9c68aaaa975679c2ae196a4fefffa047c03dcc8f 100644 (file)
--- 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 )