mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-27 05:03:27 -08:00
Perl version of 35_evenwins
This commit is contained in:
RibTips
168
35_Even_Wins/perl/evenwins.pl
Normal file
168
35_Even_Wins/perl/evenwins.pl
Normal file
@@ -0,0 +1,168 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
&main;
|
||||
|
||||
sub main {
|
||||
&print_intro;
|
||||
&game_play;
|
||||
}
|
||||
|
||||
sub game_play {
|
||||
my $marbles = 27;
|
||||
my $turn = 0;
|
||||
my $player_total = 0;
|
||||
my $computer_total = 0;
|
||||
print "TYPE A '1' IF YOU WANT TO GO FIRST AND TYPE A '0' IF YOU WANT ME TO GO FIRST\n";
|
||||
my $choice = <STDIN>;
|
||||
chomp($choice);
|
||||
if ($choice == 0) {
|
||||
until ($marbles == 0) {
|
||||
|
||||
my $computer_choice = &computer_select($marbles,$turn);
|
||||
$marbles = $marbles - $computer_choice;
|
||||
$computer_total = $computer_total + $computer_choice;
|
||||
print "MY TOTAL IS $computer_total\n";
|
||||
|
||||
print "TOTAL= $marbles\n";
|
||||
|
||||
if ($marbles == 0) {&determine_winner($computer_total,$player_total)};
|
||||
|
||||
my $player_choice = &player_select($marbles,$turn);
|
||||
$marbles = $marbles - $player_choice;
|
||||
$player_total = $player_total + $player_choice;
|
||||
print "YOUR TOTAL IS $player_total\n";
|
||||
$turn++;
|
||||
print "TOTAL= $marbles\n";
|
||||
if ($marbles == 0) {&determine_winner($computer_total,$player_total)};
|
||||
}
|
||||
}
|
||||
elsif ($choice == 1) {
|
||||
until ($marbles == 0) {
|
||||
|
||||
my $player_choice = &player_select($marbles,$turn);
|
||||
$marbles = $marbles - $player_choice;
|
||||
$player_total = $player_total + $player_choice;
|
||||
$turn++;
|
||||
print "YOUR TOTAL IS $player_total\n";
|
||||
|
||||
print "TOTAL= $marbles\n";
|
||||
|
||||
if ($marbles == 0) {&determine_winner($computer_total,$player_total)};
|
||||
|
||||
my $computer_choice = &computer_select($marbles,$turn);
|
||||
$marbles = $marbles - $computer_choice;
|
||||
$computer_total = $computer_total + $computer_choice;
|
||||
print "MY TOTAL IS $computer_total\n";
|
||||
|
||||
print "TOTAL= $marbles\n";
|
||||
|
||||
if ($marbles == 0) {&determine_winner($computer_total,$player_total)};
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub determine_winner {
|
||||
my $computer = shift;
|
||||
my $player = shift;
|
||||
print "THAT IS ALL OF THE MARBLES.\n\n";
|
||||
print "MY TOTAL IS $computer, YOUR TOTAL IS $player\n";
|
||||
if ($player % 2 == 0) {
|
||||
print " YOU WON.\n";
|
||||
}
|
||||
if ($computer % 2 == 0) {
|
||||
print " I WON.\n";
|
||||
}
|
||||
my $answer = -1;
|
||||
until ($answer == 1 || $answer == 0) {
|
||||
print "DO YOU WANT TO PLAY AGAIN? TYPE 1 FOR YES AND 0 FOR NO.\n";
|
||||
$answer=<STDIN>;
|
||||
chomp($answer);
|
||||
}
|
||||
if ($answer == 1) {
|
||||
&game_play;
|
||||
}
|
||||
else {
|
||||
print "OK. SEE YOU LATER.\n";
|
||||
exit;
|
||||
}
|
||||
}
|
||||
|
||||
sub player_select {
|
||||
my $marbles = shift;
|
||||
my $turn = shift;
|
||||
my $validity="invalid";
|
||||
if ($turn == 0) {
|
||||
print "WHAT IS YOUR FIRST MOVE\n";
|
||||
}
|
||||
else {
|
||||
print "WHAT IS YOUR NEXT MOVE\n";
|
||||
}
|
||||
until ($validity eq "valid") {
|
||||
my $num = <STDIN>;
|
||||
chomp($num);
|
||||
my $validity=&validity_check($marbles,$num);
|
||||
if ($validity eq "valid") {
|
||||
return $num;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub computer_select {
|
||||
my $marbles = shift;
|
||||
my $turn = shift;
|
||||
my $num = 2;
|
||||
my $validity = "invalid";
|
||||
if ($turn == 0) {
|
||||
print "I PICK UP $num MARBLES.\n\n";
|
||||
}
|
||||
else {
|
||||
until ($validity eq "valid") {
|
||||
my $R=$marbles-6*int(($marbles/6));
|
||||
if ($marbles < 4.2) {
|
||||
$num = $marbles;
|
||||
}
|
||||
if ($R > 3.4) {
|
||||
if ($R < 4.7 || $R > 3.5) {
|
||||
$num = 4;
|
||||
}
|
||||
else {
|
||||
$num = 1;
|
||||
}
|
||||
}
|
||||
$validity=&validity_check($marbles,$num);
|
||||
}
|
||||
print "\nI PICK UP $num MARBLES.\n\n";
|
||||
}
|
||||
return $num;
|
||||
}
|
||||
|
||||
sub validity_check {
|
||||
my $marbles = shift;
|
||||
my $num = shift;
|
||||
if ($num > $marbles) {
|
||||
print "YOU HAVE TRIED TO TAKE MORE MARBLES THAN THERE ARE LEFT. TRY AGAIN. THERE ARE $marbles MARBLES LEFT\n";
|
||||
return "invalid";
|
||||
}
|
||||
if ($num > 0 && $num <= 4) {
|
||||
return "valid";
|
||||
}
|
||||
if ($num < 1 || $num > 4) {
|
||||
print "THE NUMBER OF MARBLES YOU TAKE MUST BE A POSITIVE INTEGER BETWEEN 1 AND 4\nWHAT IS YOUR NEXT MOVE?\n";
|
||||
return "invalid";
|
||||
}
|
||||
else {
|
||||
return "invalid";
|
||||
}
|
||||
}
|
||||
|
||||
sub print_intro {
|
||||
print ' ' x 31 . "EVEN WINS\n";
|
||||
print ' ' x 15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n\n\n";
|
||||
print "THIS IS A 2 PERSON GAME CALLED 'EVEN WINS'. TO PLAY THE GAME, THE PLAYERS NEED 27 MARBLES OR OTHER OBJECTS ON THE TABLE\n\n";
|
||||
print "THE 2 PLAYERS ALTERNATE TURNS, WITH EACH PLAYER REMOVING FROM 1 TO 4 MARBLES ON EACH MOVE. THE GAME ENDS WHEN THERE ARE NO MARBLES LEFT, AND THE WINNER IS THE ONE WITH AN EVEN NUMBER OF MARBLES\n";
|
||||
print "THE ONLY RULES ARE THAT (1) YOU MUST ALTERNATE TURNS, (2) YOU MUST TAKE BETWEEN 1 AND 4 MARBLES EACH TURN, AND (3) YOU CANNOT SKIP A TURN.\n\n";
|
||||
}
|
||||
Reference in New Issue
Block a user