replace linear search with pattern matching. this appears to break gh…

…ci though
fffej · Aug 28, 2011 · 3a90097 · 3a90097
1 parent 762690e
commit 3a90097
Show file tree

Hide file tree

Showing 4 changed files with 5,952 additions and 164 deletions.
diff --git a/CactusKevEvaluator.hs b/CactusKevEvaluator.hs
@@ -6,7 +6,7 @@ import HandEvaluator (Evaluator(..))
 import Hand (Hand(..), Category(..))
 import Card (Card(..))
 import Data.Bits ((.&.),(.|.),shiftR)
-import LookupNaive (lookupFlushes, lookupUnique5, getValueFromProduct)
+import LookupPatternMatch (lookupFlushes, lookupUnique5, getValueFromProduct)
 
 -- Should perhaps keep the lookup tables in here?  Again, something not right
 data CactusKev = CactusKev