9 #include "tactics/2lib.h"
10 #include "tactics/selfatari.h"
13 /* Whether to avoid capturing/atariing doomed groups (this is big
14 * performance hit and may reduce playouts balance; it does increase
15 * the strength, but not quite proportionally to the performance). */
16 //#define NO_DOOMED_GROUPS
20 miai_2lib(struct board
*b
, group_t group
, enum stone color
)
22 bool can_connect
= false, can_pull_out
= false;
23 /* We have miai if we can either connect on both libs,
24 * or connect on one lib and escape on another. (Just
25 * having two escape routes can be risky.) We must make
26 * sure that we don't consider following as miai:
29 * O O X O - left dot would be pull-out, right dot connect */
30 foreach_neighbor(b
, board_group_info(b
, group
).lib
[0], {
31 enum stone cc
= board_at(b
, c
);
32 if (cc
== S_NONE
&& cc
!= board_at(b
, board_group_info(b
, group
).lib
[1])) {
34 } else if (cc
!= color
) {
38 group_t cg
= group_at(b
, c
);
39 if (cg
&& cg
!= group
&& board_group_info(b
, cg
).libs
> 1)
42 foreach_neighbor(b
, board_group_info(b
, group
).lib
[1], {
43 enum stone cc
= board_at(b
, c
);
44 if (c
== board_group_info(b
, group
).lib
[0])
46 if (cc
== S_NONE
&& can_connect
) {
48 } else if (cc
!= color
) {
52 group_t cg
= group_at(b
, c
);
53 if (cg
&& cg
!= group
&& board_group_info(b
, cg
).libs
> 1)
54 return (can_connect
|| can_pull_out
);
60 defense_is_hopeless(struct board
*b
, group_t group
, enum stone owner
,
61 enum stone to_play
, coord_t lib
, coord_t otherlib
,
64 /* If we are the defender not connecting out, do not
65 * escape with moves that do not gain liberties anyway
66 * - either the new extension has just single extra
67 * liberty, or the "gained" liberties are shared. */
68 /* XXX: We do not check connecting to a short-on-liberty
69 * group (e.g. ourselves). */
71 fprintf(stderr
, "\tif_check %d and defending %d and uscount %d ilcount %d\n",
72 use
, to_play
== owner
,
73 neighbor_count_at(b
, lib
, owner
),
74 immediate_liberty_count(b
, lib
));
77 if (to_play
== owner
&& neighbor_count_at(b
, lib
, owner
) == 1) {
78 if (immediate_liberty_count(b
, lib
) == 1)
80 if (immediate_liberty_count(b
, lib
) == 2
81 && coord_is_adjecent(lib
, otherlib
, b
))
88 can_atari_group(struct board
*b
, group_t group
, enum stone owner
,
89 enum stone to_play
, struct move_queue
*q
,
90 int tag
, bool use_def_no_hopeless
)
92 bool have
[2] = { false, false };
93 bool preference
[2] = { true, true };
94 for (int i
= 0; i
< 2; i
++) {
95 coord_t lib
= board_group_info(b
, group
).lib
[i
];
96 assert(board_at(b
, lib
) == S_NONE
);
97 if (!board_is_valid_play(b
, to_play
, lib
))
101 fprintf(stderr
, "- checking liberty %s of %s %s, filled by %s\n",
103 stone2str(owner
), coord2sstr(group
, b
),
106 /* Don't play at the spot if it is extremely short
108 /* XXX: This looks harmful, could significantly
109 * prefer atari to throwin:
115 if (neighbor_count_at(b
, lib
, stone_other(owner
)) + immediate_liberty_count(b
, lib
) < 2)
119 /* Prevent hopeless escape attempts. */
120 if (defense_is_hopeless(b
, group
, owner
, to_play
, lib
,
121 board_group_info(b
, group
).lib
[1 - i
],
122 use_def_no_hopeless
))
125 #ifdef NO_DOOMED_GROUPS
126 /* If the owner can't play at the spot, we don't want
127 * to bother either. */
128 if (is_bad_selfatari(b
, owner
, lib
))
132 /* Of course we don't want to play bad selfatari
133 * ourselves, if we are the attacker... */
135 #ifdef NO_DOOMED_GROUPS
138 is_bad_selfatari(b
, to_play
, lib
)) {
140 fprintf(stderr
, "\tliberty is selfatari\n");
141 coord_t coord
= pass
;
142 if (to_play
!= owner
) {
143 /* Okay! We are attacker; maybe we just need
144 * to connect a false eye before atari - this
145 * is very common in the corner. */
146 coord
= selfatari_cousin(b
, to_play
, lib
, NULL
);
150 /* Ok, connect, but prefer not to. */
152 fprintf(stderr
, "\treluctantly switching to cousin %s\n", coord2sstr(coord
, b
)),
154 preference
[i
] = false;
156 /* By now, we must be decided we add the move to the
157 * queue! [comment intentionally misindented] */
163 /* If the move is too "lumpy", prefer the alternative:
166 * ..O.X.X <- always play the left one!
168 if (neighbor_count_at(b
, lib
, to_play
) + neighbor_count_at(b
, lib
, S_OFFBOARD
) >= 3) {
170 fprintf(stderr
, "\tlumpy: mine %d + edge %d\n",
171 neighbor_count_at(b
, lib
, to_play
),
172 neighbor_count_at(b
, lib
, S_OFFBOARD
));
173 preference
[i
] = false;
177 fprintf(stderr
, "+ liberty %s ready with preference %d\n", coord2sstr(lib
, b
), preference
[i
]);
179 /* If we prefer only one of the moves, pick that one. */
180 if (i
== 1 && have
[0] && preference
[0] != preference
[1]) {
181 if (!preference
[0]) {
182 if (q
->move
[q
->moves
- 1] == board_group_info(b
, group
).lib
[0])
184 /* ...else{ may happen, since we call
185 * mq_nodup() and the move might have
186 * been there earlier. */
188 assert(!preference
[1]);
193 /* Tasty! Crispy! Good! */
200 snprintf(label
, 256, "= final %s %s liberties to play by %s",
201 stone2str(owner
), coord2sstr(group
, b
),
203 mq_print(q
, b
, label
);
208 group_2lib_check(struct board
*b
, group_t group
, enum stone to_play
, struct move_queue
*q
, int tag
, bool use_miaisafe
, bool use_def_no_hopeless
)
210 enum stone color
= board_at(b
, group_base(group
));
211 assert(color
!= S_OFFBOARD
&& color
!= S_NONE
);
214 fprintf(stderr
, "[%s] 2lib check of color %d\n",
215 coord2sstr(group
, b
), color
);
217 /* Do not try to atari groups that cannot be harmed. */
218 if (use_miaisafe
&& miai_2lib(b
, group
, color
))
221 can_atari_group(b
, group
, color
, to_play
, q
, tag
, use_def_no_hopeless
);
223 /* Can we counter-atari another group, if we are the defender? */
224 if (to_play
!= color
)
226 foreach_in_group(b
, group
) {
227 foreach_neighbor(b
, c
, {
228 if (board_at(b
, c
) != stone_other(color
))
230 group_t g2
= group_at(b
, c
);
231 if (board_group_info(b
, g2
).libs
== 1) {
232 /* We can capture a neighbor. */
233 mq_add(q
, board_group_info(b
, g2
).lib
[0], tag
);
237 if (board_group_info(b
, g2
).libs
!= 2)
239 can_atari_group(b
, g2
, stone_other(color
), to_play
, q
, tag
, use_def_no_hopeless
);
241 } foreach_in_group_end
;