From 55b3c0d4e76142312e9abf2276b51b097aa5631d Mon Sep 17 00:00:00 2001
From: RibTips <36372030+ribtips@users.noreply.github.com>
Date: Tue, 4 Jan 2022 01:33:11 -0500
Subject: [PATCH 1/2] Add files via upload

---
 35_Even_Wins/perl/evenwins.pl | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/35_Even_Wins/perl/evenwins.pl b/35_Even_Wins/perl/evenwins.pl
index 20065c23..c2fdc2d8 100644
--- a/35_Even_Wins/perl/evenwins.pl
+++ b/35_Even_Wins/perl/evenwins.pl
@@ -21,7 +21,7 @@ sub game_play {
 	if ($choice == 0) {
 		until ($marbles == 0) {
 
-			my $computer_choice = &computer_select($marbles,$turn);
+			my $computer_choice = &computer_select($marbles,$turn,$player_total);
 			$marbles = $marbles - $computer_choice;
 			$computer_total = $computer_total + $computer_choice;
 			print "MY TOTAL IS $computer_total\n";
@@ -52,7 +52,7 @@ sub game_play {
 			
 			if ($marbles == 0) {&determine_winner($computer_total,$player_total)};
 
-			my $computer_choice = &computer_select($marbles,$turn);
+			my $computer_choice = &computer_select($marbles,$turn,$player_total);
 			$marbles = $marbles - $computer_choice;
 			$computer_total = $computer_total + $computer_choice;
 			print "MY TOTAL IS $computer_total\n";
@@ -114,6 +114,7 @@ sub player_select {
 sub computer_select {
 	my $marbles = shift;
 	my $turn = shift;
+	my $player_total = shift;
 	my $num = 2;
 	my $validity = "invalid";
 	if ($turn == 0) {
@@ -122,14 +123,24 @@ sub computer_select {
 	else {
 		until ($validity eq "valid") {
 			my $R=$marbles-6*int(($marbles/6));
-			if ($marbles < 4.2) {
+			
+			if (int($player_total/2) == $player_total/2) {
+				if ($R < 1.5 || $R > 5.3) {
+					$num = 1;
+				}
+				else {
+					$num = $R - 1;
+				}
+			}
+			 
+			elsif ($marbles < 4.2) {
 				$num = $marbles;
 			}
-			if ($R > 3.4) {
+			elsif ($R > 3.4) {
 				if ($R < 4.7 || $R > 3.5) {
 					$num = 4;
 				}
-				else {
+			else {
 					$num = 1;
 				}
 			}

From 41183198a8d9e57135b079c48923ef7207d87404 Mon Sep 17 00:00:00 2001
From: RibTips <36372030+ribtips@users.noreply.github.com>
Date: Tue, 4 Jan 2022 01:37:57 -0500
Subject: [PATCH 2/2] added logic/intelligence into the AI

modified the logic from how the computer was making its selections.  Original code had a simple random number, this incorporates the original logic from the BASIC game.
---
 35_Even_Wins/python/evenwins.py | 33 ++++++++++++++++++++++++---------
 1 file changed, 24 insertions(+), 9 deletions(-)

diff --git a/35_Even_Wins/python/evenwins.py b/35_Even_Wins/python/evenwins.py
index fba20024..3fb9d4af 100644
--- a/35_Even_Wins/python/evenwins.py
+++ b/35_Even_Wins/python/evenwins.py
@@ -142,17 +142,32 @@ def game_over():
     print('')
 
 def computer_turn():
-    global marbles_in_middle
-    global computer_marbles
+	global marbles_in_middle
+	global computer_marbles
+	global human_marbles
 
-    print("It's the computer's turn ...")
-    max_choice = min(4, marbles_in_middle)
+	marbles_to_take=0
 
-    # choose at random
-    n = random.randint(1, max_choice)
-    print(f'Computer takes {marbles_str(n)} ...')
-    marbles_in_middle -= n
-    computer_marbles += n
+	print("It's the computer's turn ...")
+	r = marbles_in_middle - 6 * int((marbles_in_middle/6)) 	#line 500
+
+	if int(human_marbles/2) == human_marbles/2: 			#line 510
+		if r < 1.5 or r > 5.3: 								#lines 710 and 720	
+			marbles_to_take = 1
+		else:
+			marbles_to_take = r - 1
+
+	elif marbles_in_middle < 4.2:							#line 580
+		marbles_to_take = marbles_in_middle
+	elif r > 3.4:											#line 530
+		if r < 4.7 or r > 3.5:
+			marbles_to_take = 4
+	else:
+		marbles_to_take = r + 1
+	
+	print(f'Computer takes {marbles_str(marbles_to_take)} ...')
+	marbles_in_middle -= marbles_to_take
+	computer_marbles += marbles_to_take
 
 def play_game():
     global marbles_in_middle