Speed up best-hand by not converting to ckf repeatedly

2009-05-07 10:29:44 -04:00 · 2009-05-07 10:29:44 -04:00 · 0878006bd0
parent e2c73b543a
commit 0878006bd0
1 changed files with 2 additions and 1 deletions
--- a/extra/poker/poker.factor
+++ b/extra/poker/poker.factor
@ -195,7 +195,8 @@ M: hand equal?
    hand-rank VALUE_STR nth ;

 : best-hand ( str -- hand )
-    " " split 5 all-combinations [ " " join <hand> ] map infimum ;
+    parse-cards 5 all-combinations
+    [ dup hand-value hand boa ] map infimum ;

 TUPLE: deck
    { cards sequence } ;