Defwhen8.adb

-- Defect every eigth move

function DefWhen8 return Move is
begin
   if (MN rem 8)= 0 then
      return Defect;
   else
      return Cooperate;
   end if;
end DefWhen8;

Tillbaka till huvudsidan