Insomeorder.adb

-- Plays a pattern 35 moves long
-- Trying to be nice :)

function InSomeOrder return Move is
begin
   case MN mod 35 is
      when 3 .. 4 => return Defect;
      when 9 .. 12 => return Defect;
      when 19 .. 22 => return Defect;
      when 29..31 => return Defect;
      when others => return Cooperate;
   end case;
end InSomeOrder;

Tillbaka till huvudsidan