Make a deck of cards an actual tuple

diff --git a/extra/poker/poker.factor b/extra/poker/poker.factor
index 15e9a96d42f55d52d9a43f8ce991db7eca164fae..b4353dc92528cdeed175f779fb3a1e5c9c372dbd 100644 (file)
--- a/extra/poker/poker.factor
+++ b/extra/poker/poker.factor
@@ -194,8 +194,12 @@ M: hand equal?
 : >value ( hand -- str )
     hand-rank VALUE_STR nth ;
 
+TUPLE: deck
+    { cards sequence } ;
+
 : <deck> ( -- deck )
-    RANK_STR SUIT_STR 2array [ concat >ckf ] product-map ;
+    RANK_STR SUIT_STR 2array [ concat >ckf ] product-map deck boa ;
 
-ALIAS: shuffle randomize
+: shuffle ( deck -- deck )
+    [ randomize ] change-cards ;