gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-12 07:40:50 -08:00
Code Issues Packages Projects Releases Wiki Activity

Update AI for Awari

Browse Source
This commit is contained in:
Flavio Poletti
2022-01-07 18:41:41 +01:00
parent d8947579c7
commit 96ef262866
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
04_Awari/perl/awari.pl
View File

@@ -190,7 +190,8 @@ sub computer_move ($board, $failures, $moves) {
# be obtained by setting the ORIGINAL environment variable to a
# "true" value (in Perl terms). Otherwise it is calculated
# according to the real rules for the game.
my $p_score = $ENV{ORIGINAL} ? $landing > 13 : int(($landing - 5) / 14);
my $p_score = $ENV{ORIGINAL} ? $landing > 13
: ($landing + 1) % 14 > 6;
# whatever, the landing position must be within the bounds
$landing %= 14;