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

modified the AI logic to make it a bit more difficult

Browse Source
This commit is contained in:
ribtips
2022-02-11 12:12:02 -05:00
parent 0d3dbcff87
commit b59eba3534
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
89_Tic-Tac-Toe/perl/tictactoe2.pl
View File

@@ -110,7 +110,7 @@ sub check_for_corners {
@precedence=(1,9,7,3,5,2,4,6,8); @precedence=(1,9,7,3,5,2,4,6,8);
} }
else { else {
@precedence=(5,1,9,7,3,2,4,6,8); @precedence=(5,2,4,6,8,1,9,7,3);
} }
foreach my $move (@precedence) { foreach my $move (@precedence) {
my $validity=&check_occupation($move); my $validity=&check_occupation($move);
@@ -166,7 +166,7 @@ sub check_occupation {
sub print_board { sub print_board {
foreach my $num (1..9) { foreach my $num (1..9) {
my $char = &which_char($board{$num}); my $char = &which_char($board{$num});
if ($num == 4 || $num == 7) { print "\n---+---+---\n";} if ($num == 4 || $num == 7) { print "\n---+---+---\n";}
print "$char"; print "$char";
if ($num % 3 > 0) { print "!" } if ($num % 3 > 0) { print "!" }