1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
/* gcompris - gcompris_alphabeta.c
*
* Copyright (C) 2000 Bruno Coudoin
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, see <http://www.gnu.org/licenses/>.
*/
#include "gcompris.h"
/* gc_alphabeta returns the best value of evaluation functions */
/* set the bestChild to the index of child with this value */
/* maximize : TRUE if depth is maximize one, neither FALSE. */
/* treeGame : pointer on game to pass to others functions, */
/* bestChild : pointer on GList wich will contains list of indexes fo best plays. */
/* isLeaf : TRUE if game correspond to a Leaf of Tree. */
/* firstChild : return pointer on first child of a node. */
/* nextSibling : return pointer on next sibling of a node. */
/* heuristic : evaluation function of game. */
/* depth is max depth of recursion */
gint gc_alphabeta (gboolean maximize,
gpointer treeGame,
EvalFunction heuristic,
gint *bestChild,
FirstChildGameFunction firstChild,
NextSiblingGameFunction nextSibling,
gint alpha,
gint beta,
gint depth
)
{
gpointer child;
gint m, t, nextBest, index;
g_assert (depth >= 0);
child = firstChild(treeGame);
*bestChild = -1;
/* g_warning("gc_alphabeta %d %d %d", depth, alpha, beta); */
/* directly return value for leaf node*/
if ((!child) || (depth == 0)){
/* g_warning("gc_alphabeta %d returns %d bestChild %d", depth, heuristic(treeGame), *bestChild); */
return heuristic(treeGame);
}
index = 0;
if (maximize) {
m = alpha;
while (child){
t = gc_alphabeta (!maximize,
child,
heuristic,
&nextBest,
firstChild,
nextSibling,
m,
beta,
depth - 1
);
if (t > m){
m = t;
*bestChild = index;
}
if ( m >= beta){
/* g_warning("gc_alphabeta %d returns %d bestChild %d", depth, heuristic(treeGame), *bestChild); */
return m;
}
index++;
child = nextSibling(child);
}
/* g_warning("gc_alphabeta %d returns %d bestChild %d", depth, heuristic(treeGame), *bestChild); */
return m;
}
else {
/* minimize */
m = beta;
while (child){
t = gc_alphabeta (!maximize,
child,
heuristic,
&nextBest,
firstChild,
nextSibling,
alpha,
m,
depth - 1
);
if (t < m){
m = t;
*bestChild = index;
}
if ( m <= alpha){
/* g_warning("gc_alphabeta %d returns %d bestChild %d", depth, heuristic(treeGame), *bestChild); */
return m;
}
index++;
child = nextSibling(child);
}
/* g_warning("gc_alphabeta %d returns %d bestChild %d", depth, heuristic(treeGame), *bestChild); */
return m;
}
}
|