#!/usr/local/bin/perl -w 

use strict;

srand(time);

my $iters = 10;

my $player1 = \&player_random;
#my $player1 = \&player_good;
#my $player1 = \&player_tit_for_tat;

#my $player2 = \&player_random;
#my $player2 = \&player_good;
my $player2 = \&player_tit_for_tat;

my (@record1, @record2, $score1, $score2, $total_score1, $total_score2
+);

for (my $n = 0; $n < $iters; ++$n)
{
    my $ret1 = $player1->(\@record1, \@record2);
    my $ret2 = $player2->(\@record2, \@record1);

    ($score1, $score2) = calc_score($ret1, $ret2);

    $total_score1 += $score1;
    $total_score2 += $score2;

    push(@record1, $ret1);
    push(@record2, $ret2);
}

print_records(\@record1, \@record2);
print "Player1: $total_score1\nPlayer2: $total_score2\n";

#########################################
#
# Subroutines
#
#########################################


sub print_records
{
    my @record1 = @{$_[0]};
    my @record2 = @{$_[1]};

    for (my $n = 0; $n < @record1; ++$n)
    {
    print "$record1[$n] $record2[$n]\n";
    }
}

# H - hold out (be good)
# T - testify (betray)
#
sub calc_score
{
    my $move1 = $_[0];
    my $move2 = $_[1];
    my ($score1, $score2);
    
 SWITCH:
    {
    if ($move1 eq "T" && $move2 eq "T")
    {
        $score1 = 4;
        $score2 = 4;
        last SWITCH;
    }
    if ($move1 eq "T" && $move2 eq "H")
    {
        $score1 = 0;
        $score2 = 5;
        last SWITCH;
    }
    if ($move1 eq "H" && $move2 eq "T")
    {
        $score1 = 5;
        $score2 = 0;
        last SWITCH;
    }
    if ($move1 eq "H" && $move2 eq "H")
    {
        $score1 = 2;
        $score2 = 2;
        last SWITCH;
    }
    }

    return ($score1, $score2);
}


#
# Various players
#
# Arguments: player's past record and opponent's
#            past record
#
# Return: H or T
#

sub player_nice
{
    return "H";
}


sub player_random
{
    return "H" if rand() < 0.5;
    return "T";
}

sub player_tit_for_tat 
{
    my @my_record = @{$_[0]};
    my @his_record = @{$_[1]};

    return "H" unless @my_record;
    return $his_record[$#his_record];
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.