Merge branch 'master' into win2
[pachi/nmclean.git] / tactics / util.c
blobd2f5d3365c7506383bd63a83ad7e9480e66b11c3
1 #include <assert.h>
2 #include <stdio.h>
3 #include <stdlib.h>
5 #define DEBUG
6 #include "board.h"
7 #include "debug.h"
8 #include "tactics/util.h"
11 bool
12 board_stone_radar(struct board *b, coord_t coord, int distance)
14 int bounds[4] = {
15 coord_x(coord, b) - distance,
16 coord_y(coord, b) - distance,
17 coord_x(coord, b) + distance,
18 coord_y(coord, b) + distance
20 for (int i = 0; i < 4; i++)
21 if (bounds[i] < 1)
22 bounds[i] = 1;
23 else if (bounds[i] > board_size(b) - 2)
24 bounds[i] = board_size(b) - 2;
25 for (int x = bounds[0]; x <= bounds[2]; x++)
26 for (int y = bounds[1]; y <= bounds[3]; y++)
27 if (board_atxy(b, x, y) != S_NONE) {
28 /* fprintf(stderr, "radar %d,%d,%d: %d,%d (%d)\n",
29 coord_x(coord, b), coord_y(coord, b),
30 distance, x, y, board_atxy(b, x, y)); */
31 return true;
33 return false;
37 void
38 cfg_distances(struct board *b, coord_t start, int *distances, int maxdist)
40 /* Queue for d+1 spots; no two spots of the same group
41 * should appear in the queue. */
42 #define qinc(x) (x = ((x + 1) >= board_size2(b) ? ((x) + 1 - board_size2(b)) : (x) + 1))
43 coord_t queue[board_size2(b)]; int qstart = 0, qstop = 0;
45 foreach_point(b) {
46 distances[c] = board_at(b, c) == S_OFFBOARD ? maxdist + 1 : -1;
47 } foreach_point_end;
49 queue[qstop++] = start;
50 for (int d = 0; d <= maxdist; d++) {
51 /* Process queued moves, while setting the queue
52 * for new wave. */
53 int qa = qstart, qb = qstop;
54 qstart = qstop;
55 for (int q = qa; q < qb; qinc(q)) {
56 #define cfg_one(coord, grp) do {\
57 distances[coord] = d; \
58 foreach_neighbor (b, coord, { \
59 if (distances[c] < 0 && (!grp || group_at(b, coord) != grp)) { \
60 queue[qstop] = c; \
61 qinc(qstop); \
62 } \
63 }); \
64 } while (0)
65 coord_t cq = queue[q];
66 if (distances[cq] >= 0)
67 continue; /* We already looked here. */
68 if (board_at(b, cq) == S_NONE) {
69 cfg_one(cq, 0);
70 } else {
71 group_t g = group_at(b, cq);
72 foreach_in_group(b, g) {
73 cfg_one(c, g);
74 } foreach_in_group_end;
76 #undef cfg_one
80 foreach_point(b) {
81 if (distances[c] < 0)
82 distances[c] = maxdist + 1;
83 } foreach_point_end;
87 floating_t
88 board_effective_handicap(struct board *b, int first_move_value)
90 /* This can happen if the opponent passes during handicap
91 * placing phase. */
92 // assert(b->handicap != 1);
94 /* Always return 0 for even games, in particular if
95 * first_move_value is set on purpose to a value different
96 * from the correct theoretical value (2*komi). */
97 if (!b->handicap)
98 return 7.5 - b->komi;
99 return b->handicap * first_move_value + 0.5 - b->komi;
103 bool
104 pass_is_safe(struct board *b, enum stone color, struct move_queue *mq)
106 floating_t score = board_official_score(b, mq);
107 if (color == S_BLACK)
108 score = -score;
109 //fprintf(stderr, "%d score %f\n", color, score);
110 return (score >= 0);
114 /* On average 25% of points remain empty at the end of a game */
115 #define EXPECTED_FINAL_EMPTY_PERCENT 25
117 /* Returns estimated number of remaining moves for one player until end of game. */
119 board_estimated_moves_left(struct board *b)
121 int total_points = (board_size(b)-2)*(board_size(b)-2);
122 int moves_left = (b->flen - total_points*EXPECTED_FINAL_EMPTY_PERCENT/100)/2;
123 return moves_left > MIN_MOVES_LEFT ? moves_left : MIN_MOVES_LEFT;