package Averager;

sub new {
    return bless {"history" => [],
	      };
}

sub choose {
    $me = shift;
    @history = @{$me->{history}};
    if($mean > $nice){
	return "DEFECT";
    }
    else{
	return "COOPERATE";
    }
}

sub record {
    $me = shift;
    $did = shift;
    if($did eq "COOPERATE"){
	$nice++;
    }
    else {
	$mean++;
    }
}

1;