Defwhen5.adb

-- Defect every fifth move

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

Tillbaka till huvudsidan