From c975a3c4f2ca835a3f4d6aaa00c7ba34299748ca Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 7 Dec 2009 19:28:11 -0600 Subject: [PATCH] randomize poker decks in word --- extra/poker/poker-docs.factor | 2 +- extra/poker/poker.factor | 5 +---- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/extra/poker/poker-docs.factor b/extra/poker/poker-docs.factor index 1d7d9ae5c6..ecdcf3f591 100644 --- a/extra/poker/poker-docs.factor +++ b/extra/poker/poker-docs.factor @@ -13,4 +13,4 @@ HELP: best-holdem-hand HELP: { $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 882d71887e..9c68aaaa97 100644 --- a/extra/poker/poker.factor +++ b/extra/poker/poker.factor @@ -183,7 +183,7 @@ PRIVATE> : ( -- 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 )