Titfor2tat1.adb

function TitFor2Tat1 return Move is
begin
   if MN = 1 then
      return Cooperate;
   elsif MN = 2 then
      return OL;
   elsif OL = Defect and then OppMoves(MN-2) = Defect then
      return Defect;
   else
      return Cooperate;
   end if;
end TitFor2Tat1;

Tillbaka till huvudsidan