game-scores map

yuanmai · Aug 1, 2012 · dba1a73 · dba1a73
1 parent f382e03
commit dba1a73
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/yuan/game/alpha_beta_pruning.clj b/src/yuan/game/alpha_beta_pruning.clj
@@ -55,7 +55,9 @@
     (binding [*turn-fn* turn-fn
               *eval-fn* eval-fn
               *current-player* (trace :turn (turn-fn board))]
-      (let [f (opportunistic (comp (partial ab-get-rating-max 1 -1)
+      (let [f (opportunistic (comp (partial ab-get-rating-max
+                                            (game-scores :win)
+                                            (game-scores :lose))
                                    limit-tree-depth))
             ratings (trace :ratings (f tree))
             best (apply max ratings)]

diff --git a/src/yuan/game/game_tree.clj b/src/yuan/game/game_tree.clj
@@ -3,6 +3,10 @@
 
 (def ^:dynamic *ai-level* 5)
 
+(def game-scores {:win 1
+                  :draw 0
+                  :lose -1})
+
 (defn game-tree
   [make-move board]
   {:board board