#!/usr/bin/perl -w
use strict;

# Colors: [y]ellow [b]lue [g]reen [r]ed blac[k] [w]hite

my $x;
my @correctguesses;
my @getridofthese;
my $y;
my $their_guess;
my @their_guess;
my $guess_count = 0;
my $theyre_incorrect = 1;
my $number_completly_right;
my $number_correct_color;
my @pattern_to_match;
my @previous_guesses;
my @numbers_to_colors = qw{y b g r k w};

print "\nMastermind!!!\nColors are: [y]ellow [b]lue [g]reen [r]ed blac[k] [w]hite\n";

for($x=0;$x<=3;$x++) {
	$pattern_to_match[$x]=$numbers_to_colors[rand 5];
}

while ($guess_count <=9 && $theyre_incorrect) {
	my @newpattern_to_match = @pattern_to_match;
	$number_completly_right = 0;
	$number_correct_color = 0;
	$their_guess = <STDIN>;
	chomp $their_guess;
	if ($their_guess eq "showme") {
		print @pattern_to_match;
		print "\n";
		next;
	}
	
	print "$number_correct_color\n";
		
	$previous_guesses[$guess_count]{"guess"} = $their_guess;
	$their_guess =~ /([ybgrkw])([ybgrkw])([ybgrkw])([ybgrkw])/;
	@their_guess = ($1,$2,$3,$4);
	for ($x=0;$x<=3;$x++) {
	
		if ($their_guess[$x] eq $newpattern_to_match[$x]) {
			$number_completly_right++;
			@getridofthese = (@getridofthese, $x);
			@correctguesses = (@correctguesses, $x);
			next;
		}
	}

	foreach(@correctguesses) {
		splice(@their_guess,$_,1);
	}
	
	foreach(@getridofthese) {
		splice(@newpattern_to_match,$_,1);
	}
	
	for($x=0;$x<@their_guess;$x++) {
		for($y=0;$y<@correctguesses;$y++) {
			if($their_guess[$x] eq $pattern_to_match[$y]) {
				$number_correct_color++;
				splice(@newpattern_to_match,$y,1);
			}
		}
	}
	
	
	
	$previous_guesses[$guess_count]{"reply"} = "$number_completly_right, $number_correct_color";
	
	print "\nMastermind!!!\nColors are: [y]ellow [b]lue [g]reen [r]ed blac[k] [w]hite\n";
	for ($x=$guess_count;$x>=0;$x--) {
		print $x . " | " . $previous_guesses[$x]{"guess"} . " | " . $previous_guesses[$x]{"reply"} . "\n";
	}
		
	$theyre_incorrect = 0 if ($number_completly_right == 4);
	$guess_count++;
}