Kết quả cuối cùng là đây!

Giới thiệu

Năm 2042, thế giới đã trở nên quá đông dân. Toàn cầu hóa, quá đông đúc, lối sống mới và thiếu vệ sinh toàn cầu đã gây ra một đại dịch mới lan rộng. Trong thời gian khó khăn đó, các nhà lãnh đạo nhà nước phải quản lý tình hình. Bạn không thể để dân số của mình bị suy giảm, nhưng có lẽ bạn có thể hưởng lợi bằng cách để hàng xóm của mình chết ...

Bảng chú giải

Khỏe mạnh : Những người không bị nhiễm
bệnh : Những người có thể chết vì đại dịch
Chết : Số lượng cơ thể, không có ảnh hưởng cụ thể (chỉ ghi điểm)
Tỷ lệ nhiễm trùng : Số người khỏe mạnh sẽ bị nhiễm bệnh mỗi lượt
Tỷ lệ lây nhiễm : Tỷ lệ nhiễm bệnh sẽ chuyển đổi khỏe mạnh sang bị nhiễm bệnh mỗi lượt
Tỷ lệ tử vong : Tỷ lệ bị nhiễm sẽ chết mỗi lượt
Tỷ lệ di cư : Tỷ lệ cả người khỏe mạnh và bị nhiễm bệnh sẽ di cư / di cư mỗi lượt
Địa phương: Chỉ ảnh hưởng đến tiểu bang của bạn
Toàn cầu : Ảnh hưởng đến mọi tiểu bang

Nguyên tắc

Mỗi người chơi sẽ quản lý một thị trấn, bắt đầu với 100 người . Thật không may, trong số họ là một người bị nhiễm bệnh .

Trò chơi được chơi theo lượt. Một lượt bao gồm bảy giai đoạn , giai đoạn cuối cùng là tương tác (yêu cầu bot cho một lệnh). Thứ tự của người chơi được chọn ngẫu nhiên mỗi lượt. Giai đoạn tiếp theo bắt đầu khi giai đoạn trước đã được thực hiện bởi mọi thị trấn (Lần lượt 1: Người chơi 1, Người chơi 2, Người chơi 3 ...; Lần lượt 2: Người chơi 3, Người chơi 2, Người chơi 1 ...):

1. Mutation                                 - AUTOMATED
2. Reproduction                             - AUTOMATED
3. Migration                                - AUTOMATED
4. Infection                                - AUTOMATED
5. Contagion                                - AUTOMATED
6. Extinction                               - AUTOMATED
7. Players Turn                             - INTERACTIVE

Bộ điều khiển cung cấp cho bạn đầu vào thông qua các đối số lệnh và chương trình của bạn phải xuất qua thiết bị xuất chuẩn.

Cú pháp

Đầu vào

Mỗi khi chương trình của bạn được gọi, nó sẽ nhận được các đối số ở định dạng này:

Round;YourPlayerId;PlayerId_Healthy_Infected_Dead_InfectionRate_ContagionRate_LethalityRate_MigrationRate;PlayerId_Healthy_Infected_Dead_InfectionRate_ContagionRate_LethalityRate_MigrationRate;...

Vòng có 1 chỉ số.

Ví dụ đầu vào

6;2;1_106_23_9_2_4_13_5;0_20_53_62_16_20_35_5;2_20_53_62_16_20_35_5

Ở đây, bạn thấy đó là vòng thứ 6 và bạn là người chơi 2. Bạn có 20 người khỏe mạnh, 53 người nhiễm bệnh, 62 người chết, tỷ lệ lây nhiễm 16%, tỷ lệ lây nhiễm 20%, tỷ lệ tử vong 35% và tỷ lệ di cư 5%.

Đầu ra

Bạn phải xuất ba ký tự (không có khoảng trắng, không có dấu phân cách), mỗi ký tự tương ứng với một hành động bạn sẽ thực hiện lần lượt này. Thứ tự của các nhân vật xác định thứ tự của các hành động. Bạn có thể xuất các hành động tương tự nhiều lần.

N: Do N ellow
M: Research M icrobiology [Hiệu ứng: Giảm tỷ lệ nhiễm trùng cục bộ 4%]
E: Nghiên cứu khoa học điện tử [Hiệu ứng: Giảm 8% tỷ lệ lây nhiễm tại địa phương ]
I: Nghiên cứu I mmunology [Tác dụng: Giảm tỷ lệ tử vong tại địa phương xuống 4%]
V: Nghiên cứu V tích lũy [Hiệu ứng: Giảm tỷ lệ nhiễm trùng cục bộ xuống 1%, giảm 4% Tỷ lệ lây nhiễm tại địa phương , giảm 2% Tỷ lệ tử vong tại địa phương ]
C: Cung cấp cho C ure [Hiệu ứng: Chuyển đổi 10 bệnh nhân nhiễm trùng cục bộ thành khỏe mạnh ]
Q : Q uarantine [Effects: Di chuyển 30 địa phương bị nhiễm ]
O: O bút Borders [Tác dụng: Tăng địa phương Rate Migration 10%]
B: Đóng B đơn đặt hàng [Effects: Giảm địa phương Rate Migration 10%]
T: Bio T errorism [Effects: Chuyển đổi 4 Toàn cầu khỏe mạnh để bị nhiễm bệnh ]
W: W eaponization [Hiệu ứng: Tăng tỷ lệ nhiễm trùng toàn cầu lên 1, tăng tỷ lệ tử vong toàn cầu lên 2%]
D: D ngay lập tức [Hiệu ứng: Tăng tỷ lệ nhiễm trùng toàn cầutăng 1%, tăng tỷ lệ lây nhiễm toàn cầu lên 2%]
P: P acization [Hiệu ứng: Giảm tỷ lệ lây nhiễm toàn cầu xuống 1, giảm 1% tỷ lệ lây nhiễm toàn cầu, giảm 1% tỷ lệ tử vong toàn cầu ]

Trò chơi

Tất cả các giai đoạn

Lệnh không hợp lệ = Không có
tỷ lệ phần trăm nào được thêm vào như số nguyên, tức là 10% - 4% = 6%. Khi tỷ lệ phần trăm được áp dụng trong một công thức, kết quả được thả nổi.

Giai đoạn 1: Đột biến

Đại dịch đang trở nên mạnh mẽ hơn. Mỗi lượt, nó ngẫu nhiên nhận được một trong những thuộc tính này (đột biến này ảnh hưởng đến tất cả người chơi cùng một lúc):

• Tăng tỷ lệ nhiễm trùng toàn cầu lên 2
• Tăng tỷ lệ lây nhiễm toàn cầu lên 5%
• Tăng tỷ lệ tử vong toàn cầu lên 5%

Giai đoạn 2: Sinh sản

Cứ sau 5 vòng (vòng 5, 10, 15 ...), công dân mới sẽ được sinh ra. Mỗi cặp Khỏe mạnh sẽ làm cho một Người khỏe mạnh (23 Khỏe mạnh tạo ra 11 Sức khỏe mới ). Mỗi cặp bị nhiễm sẽ làm cho một người bị nhiễm bệnh .

Giai đoạn 3: Di cư

Mỗi lượt, một tỷ lệ phần trăm Người khỏe mạnh và bị nhiễm sẽ rời khỏi các trạng thái, tùy thuộc vào Tỷ lệ di cư của họ (10 Người khỏe mạnh sẽ rời khỏi trạng thái có 100 Tỷ lệ di cư khỏe mạnh và 10% ). Sau đó, người di cư sẽ được phân phối giữa mọi tiểu bang, một lần nữa tùy thuộc vào Tỷ lệ di cư . (Tỷ lệ của mỗi tiểu bang có trọng số và người di cư sau đó tất cả được phân phối tương ứng).

Giai đoạn 4: Nhiễm trùng

Sức khỏe của mỗi tiểu bang được chuyển đổi thành Bị nhiễm bệnh , theo Tỷ lệ nhiễm trùng .

Giai đoạn 5: lây nhiễm

Sức khỏe của mỗi tiểu bang được chuyển đổi thành Bị nhiễm bệnh , theo Tỷ lệ lây nhiễm . Con số này được tính bằng cách nhân bị nhiễm bởi các Rate Contagion .

Giai đoạn 6: Tuyệt chủng

Bị nhiễm bệnh được chuyển thành Chết , theo Tỷ lệ tử vong . Con số được tính bằng cách nhân Tỷ lệ nhiễm với Tỷ lệ tử vong .

Giai đoạn 7: Người chơi lần lượt

Mỗi người chơi nhận đầu vào và phải xuất ba hành động, được thực hiện theo thứ tự họ đang xuất.

Quy tắc

• Bots không nên được viết để đánh bại hoặc hỗ trợ các bot cụ thể khác.
• Viết vào các tập tin được cho phép. Vui lòng viết thư cho "mineubmissionname.txt", thư mục sẽ được xóa trước khi trò chơi bắt đầu. Các nguồn lực bên ngoài khác không được phép.
• Trình của bạn có một giây để trả lời (mỗi thị trấn).
• Cung cấp các lệnh để biên dịch và chạy đệ trình của bạn.

Chiến thắng

Người chiến thắng là người có nhiều sức khỏe nhất sau 50 vòng. Nếu một người chơi là người còn sống cuối cùng (hơn 0 Khỏe mạnh hoặc bị nhiễm bệnh ) thì trò chơi dừng lại và anh ta thắng. Nếu nhiều người chơi có cùng số lượng Người khỏe mạnh , người nào bị nhiễm nhiều nhất sẽ chiến thắng, thì người chơi có ít Dead hơn .

Bộ điều khiển

Bạn có thể tìm thấy bộ điều khiển trên GitHub . Nó cũng chứa ba mẫu, được viết bằng Java.
Để làm cho nó chạy, hãy xem dự án và mở nó trong Java IDE của bạn. Điểm vào trong mainphương thức của lớp Game. Yêu cầu Java 8.

Để thêm bot, trước tiên, bạn cần phiên bản được biên dịch cho Java (tệp. Class) hoặc nguồn cho các ngôn ngữ được diễn giải. Đặt chúng trong thư mục gốc của dự án. Sau đó, tạo một lớp Java mới trong playersgói (bạn có thể lấy ví dụ về các bot đã có). Lớp này phải thực hiện Playerđể ghi đè phương thức String getCmd(). Chuỗi trả về là lệnh shell để chạy bot của bạn. Ví dụ, bạn có thể làm cho bot Ruby hoạt động với lệnh này : return "C:\Ruby\bin\ruby.exe MyBot.rb";. Cuối cùng, thêm bot trong playersmảng ở đầu Gamelớp.

Kết quả cuối cùng (2016-03-04 08:22 GMT)

Toàn cầu (100 danh tiếng):

Kết quả 100 trò chơi: http://past.co/942200ff

1. EvilBot (24, 249, 436)
2. Triage (23, 538, 486)
3. WICKED (23, 537, 489)
4. Israel (23, 40, 240)
5. InfectedTown (22, 736, 482)
6. ZombieState (22, 229, 369)
7. Mooch (22, 87, 206)
8. InfectedHaven (21, 723, 483)
9. Crossroads (16, 9, 136)
10. TheKeeper (3, 4, 138)
11. Terrorist (0, 595, 496)
12. InfectionBot (0, 511, 430)
13. FamilyValues (0, 6, 291)
14. UndecidedBot (0, 0, 20)
15. XenoBot (0, 0, 26)
16. Researcher (0, 0, 33)
17. Strategist (0, 0, 42)
18. TheCure (0, 0, 55)
19. Socialist (0, 0, 67)
20. TrumpBot (0, 0, 77)
21. CullBot (0, 0, 81)
22. BackStabber (0, 0, 87)
23. BlunderBot (0, 0, 104)
24. RemoveInfected (0, 0, 111)
25. PFC (0, 0, 117)
26. BioterroristBot (0, 0, 118)
27. PassiveBot (0, 0, 118)
28. Smaug (0, 0, 118)
29. WeaponOfMassDissemination (0, 0, 119)
30. AllOrNothing (0, 0, 121)
31. Obamacare (0, 0, 122)
32. DisseminationBot (0, 0, 123)
33. CureThenQuarantine (0, 0, 125)
34. Madagascar (0, 0, 129)
35. OpenAndClose (0, 0, 129)
36. ThePacifist (0, 0, 130)
37. MedicBot (0, 0, 131)
38. Medic (0, 0, 133)
39. Salt (0, 0, 134)
40. Piecemeal (0, 0, 136)
41. Graymalkin (0, 0, 137)
42. PureBot (0, 0, 140)
43. MadScienceBot (0, 0, 144)
44. BipolarBot (0, 0, 149)
45. RedCross (0, 0, 151)

Doomsday-less (200 danh tiếng):

Kết quả 100 trò chơi: http://past.co/220b575b

1. FamilyValues (5708, 14, 2)
2. BlunderBot (5614, 12, 3)
3. Graymalkin (5597, 17, 4)
4. PureBot (5550, 12, 5)
5. Crossroads (5543, 11, 4)
6. Salt (5488, 24, 7)
7. CureThenQuarantine (5453, 13, 7)
8. Piecemeal (5358, 121, 23)
9. TrumpBot (5355, 12, 5)
10. CullBot (5288, 12, 9)
11. AllOrNothing (5284, 13, 10)
12. Madagascar (5060, 180, 35)
13. TheKeeper (4934, 165, 44)
14. WICKED (4714, 25, 5)
15. Strategist (2266, 25, 5)
16. BackStabber (2180, 1327, 596)
17. RemoveInfected (2021, 33, 27)
18. OpenAndClose (1945, 667, 394)
19. Triage (1773, 401, 80)
20. TheCure (1465, 46, 26)
21. Obamacare (1263, 525, 247)
22. Mooch (1103, 546, 269)
23. Israel (1102, 580, 292)
24. RedCross (1086, 1700, 727)
25. ThePacifist (1069, 636, 580)
26. Researcher (1035, 113, 37)
27. UndecidedBot (825, 219, 93)
28. PassiveBot (510, 990, 567)
29. MedicBot (411, 1474, 667)
30. Medic (392, 1690, 619)
31. Socialist (139, 63, 90)
32. XenoBot (0, 82, 170)

Cảm ơn tất cả mọi người vì sự tham gia của bạn. Tôi hy vọng bạn đã có một khoảng thời gian tuyệt vời để thiết kế và mã hóa các bot của mình khi tôi chạy trò chơi.

Giá trị gia đình, nút (ES6)

// Process input
var data = process.argv[2].split(';');
var round = data.shift()*1;
var id = data.shift()*1;
var playerCount = data.length;
var local = data.find(function(v) {
  return !v.indexOf(id+'_')}
).split('_');
local = {
  sane: local[1]*1,
  infected: local[2]*1,
  dead: local[3]*1,
  infectionRate: local[4]*1,
  contagionRate: local[5]*1,
  lethalityRate: local[6]*1,
  migrationRate: local[7]*1
};

// Determine response
var response = [];
for(var i=0;i<3;i++) {
  var model = {
    M: local.infectionRate,
    E: local.contagionRate * (local.sane > 0 ? 1 : 0.5),
    I: local.lethalityRate * (round > 45 ? 0 : local.sane > 0 ? 1 : 2),
    V: (local.infectionRate/4 + local.contagionRate/2 + local.lethalityRate/2) * (round > 45 ? 0 : 1),
    C: local.infected / Math.max(local.infectionRate, 1) * (round > 48 ? round : local.infectionRate + local.contagionRate/100 * local.infected < (3 - i) * 10 ? 1 : 0),
    B: local.migrationRate * 10
  };
  var max = 'M';
  for(k in model) {
    if (model[k] > model[max] ) {
      max = k;
    } else if(model[k] == model[max]) {
      max = [max, k][Math.random()*2|0];
    }
  }
  response.push(max);

  // Refactor priorities
  if(max == 'M') {
    local.infectionRate -= 4;
  } else if(max == 'E') {
    local.contagionRate -= 8;
  } else if(max == 'I') {
    local.lethalityRate -= 4;
  } else if(max == 'V') {
    local.infectionRate -= 1;
    local.contagionRate -= 4;
    local.lethalityRate -= 2;
  } else if(max == 'C') {
    local.infected -= 10;
  } else if(max == 'B') {
    local.migrationRate -= 10;
  }
}

// Respond with actions
process.stdout.write(response.join(''));

Giá trị gia đình tập trung vào việc tự bảo vệ và bảo vệ, và chỉ thực hiện các hành động cho đến cùng. Nó sử dụng hệ thống giá trị điểm để xác định hướng hành động tốt nhất để thực hiện và sau đó điều chỉnh các giá trị trạng thái của chính nó để xác định tốt hơn ưu tiên tiếp theo của nó. Trong trường hợp hòa, nó chọn ngẫu nhiên trong số các tùy chọn tốt nhất.

EDIT: Có vẻ như đang làm tốt cho đến nay:

    ********** FINISH **********
    1. FamilyValues (1143, 0, 188)
    2. Triage (582, 0, 158)
    3. Researcher (281, 0, 142)
    4. Madagascar (149, 0, 162)
    5. Mooch (148, 0, 331)
    6. MedicBot (142, 0, 161)
    7. Medic (66, 65, 211)
    8. XenoBot (0, 0, 22)
    9. WMDbot (0, 0, 218)
    10. PassiveBot (0, 0, 221)
    11. BioterroristBot (0, 0, 221)
    12. MadScienceBot (0, 0, 221)
    13. DisseminationBot (0, 0, 221)
    14. TheCure (0, 0, 222)

The Pacifist, Nút

// Process input
var data = process.argv[2].split(';');
var round = data.shift()*1;

// Respond with actions
process.stdout.write(round == 1 ? 'OOO' : 'PPP');

Với rất nhiều sự tập trung vào giết chóc và cái chết, Pacifist tin rằng sức khỏe toàn cầu mạnh mẽ có nghĩa là sức khỏe địa phương mạnh mẽ. Như vậy, họ gần như chỉ tập trung vào việc giảm bệnh tật toàn cầu, trong khi để lại một phần mở cho phép sự tốt đẹp lan rộng ra xung quanh.

TrumpBot

private void sleep(String[] args) {

    round = Integer.parseInt(args[0]);
    thisTownID = Integer.parseInt(args[1]);

    states = new ArrayList<>();
    //states.add(new State(args[thisTownID+2]));

    otherStates = new ArrayList<>();


    for (int i = 2; i < args.length; i++){
        states.add(new State(args[i]));
    }

    for (State state : states){
        if (state.ownerId == thisTownID) {
            thisState = state;
        } else {
            otherStates.add(state);
        }
    }

    StringBuilder cmd = new StringBuilder();

    for (int j =0;j<3;j++){
        if (thisState.infected > 7) {
          if (thisState.infected > 25){
            cmd.append("Q");
            thisState.infected -= 30;
          }
          else {
            cmd.append("C");
            thisState.infected -= 10;
          }
        }
        else if (thisState.migrationRate > 2) {
          cmd.append("B");
          thisState.migrationRate -= 10;
        }
        else if (thisState.infectionRate > 4) {
          cmd.append("M");
          thisState.infectionRate  -= 4;
        }
        else if (thisState.contagionRate > 10 || thisState.lethalityRate > 6 || thisState.infectionRate > 0) {
          cmd.append("V");
          thisState.contagionRate  -= 4;
          thisState.lethalityRate  -= 2;
          thisState.infectionRate  -= 1;
        }

        else if (thisState.infected % 10 <= 6){
          cmd.append("T");
          thisState.infected +=4;
        }
        else cmd.append("V");
    }
    System.out.print(cmd.reverse());
}

Làm cho nước Mỹ vĩ đại bằng cách chữa khỏi tất cả những người bị nhiễm trừ khi chỉ có 2 hoặc ít hơn; thiểu số sẽ bị bỏ qua.

Có ít nhiễm trùng làm cho thuốc rẻ hơn.

Cần không có người nhập cư - họ chỉ mang lại nhiễm trùng.

Nếu không còn gì để làm, hãy đánh bom những người chơi khác.

Đảo ngược mệnh lệnh theo cách của Mỹ, bom trước cứu người sau.

Chỉnh sửa: đã sửa một lỗi sẽ spam thư rác vì số lượng bị nhiễm không được hạ xuống sau khi chữa.

Trumpscript

Cảm ơn J Atkin đã cung cấp nó:

Make turn 4000000
As long as, turn larger than 1000000;:
If, refugee count > 2000000;: say "C"!
Else if, infectionRate > 200000;: say "M"!
Else if, immigration rate > 9000000;: say "B"!
Else: say "T"!
Make turn old turn - 1000000!
America is Great. 

Tất cả mọi thứ, R

args <- strsplit(commandArgs(TRUE),";")[[1]]
round <- as.integer(args[1])
me <- as.integer(args[2])
stats <- do.call(rbind,strsplit(args[-(1:2)],"_"))
stats <- as.data.frame(apply(stats,2,as.integer))
colnames(stats) <- c("id","Sane","Infected","Dead","InfRate","ContRate","LethRate","MigRate")
out <- ""
statme <- stats[stats$id==me,]
while(nchar(out)<3){
    if(round==1 & !nchar(out)){
        out <- paste0(out, "B")
    }else if(round%%5==4 & statme$Infected > 20){
        statme$Infected <- statme$Infected - 30
        out <- paste0(out, "Q")
    }else if(statme$Sane*statme$InfRate/100 >= 1){
        o <- ifelse(statme$Sane*statme$InfRate/100 < statme$Infected*statme$ContRate/100, "C", "M")
        if(o=="C") statme$Infected <- statme$Infected - 10
        if(o=="M") statme$InfRate <- statme$InfRate - 4
        out <- paste0(out, o)
    }else if(statme$Infected > 0){
        statme$Infected <- statme$Infected - 10
        out <- paste0(out, "C")
    }else if(median(stats$LethRate)<20){ 
        out <- paste0(out, "W")
    }else{
        out <- paste0(out, "E")     
    }
}
cat(substr(out,1,3))

Được viện dẫn bởi Rscript AllOrNothing.R.

Ý tưởng ở đây là một mặt để hạn chế tối đa nguy cơ nhiễm trùng (bằng cách giảm tỷ lệ nhiễm trùng, chữa khỏi bệnh và ngăn ngừa nhiễm trùng để nhập cư) và mặt khác để tăng tỷ lệ tử vong của bệnh để những người mắc phải bị nhiễm bệnh, chết trước khi làm ô nhiễm những người khác.

Chỉnh sửa: tinh chỉnh chiến lược một chút.

Thuốc

Người dược luôn ... gặp rắc rối , có thể nói, bởi những người không có thuốc. Anh ấy thích hành nghề y, vì vậy đó là tất cả những gì anh ấy làm. Anh ấy cũng thích trăn, vì vậy anh ấy đã viết mã của mình bằng Python. Tất cả đều có ý nghĩa, nếu bạn nghĩ về nó. _{Không, nó thực sự không. ^{Thật ra, nó hơi ...}}

from random import *
commands = ""
while len(commands) < 3:
    chance = random()
    if chance < .5: commands += "V"
    elif chance < .66: commands += "I"
    elif chance < .84: commands += "E"
    else: commands += "M"

print(commands)

Tôi ở đây là để giúp đỡ.

Phương thuốc

Điều này có vẻ hơi quá đơn giản, nhưng nó cũng có vẻ là một phương pháp khá tốt để giảm tỷ lệ nhiễm trùng / tử vong. Trên mỗi lượt, đầu raMCQ :

• Giảm tỷ lệ nhiễm trùng
• Chữa một số bệnh nhiễm trùng
• Kiểm dịch một số người còn lại bị nhiễm bệnh

Đó là nó!

public class TheCure{
    public static void main(String[]a){
        System.out.println("MCQ");
    }
}

Tôi có thể cải thiện điều này bằng cách xuất thêm M(hoặc B) nếu hiện tại tôi không bị nhiễm bệnh thay vì chữa bệnh và cách ly, nhưng tôi muốn xem điều này tốt như thế nào trước tiên. Thật không may, một tác dụng phụ của việc đăng bài đầu tiên là rất khó để đánh giá hiệu quả:

Bấc, Kotlin

Hãy nhớ rằng, WICKED là tốt.

package wicked

import java.util.*

fun clamp(value : Double, floor : Double, ceil : Double = Double.POSITIVE_INFINITY) = Math.max(Math.min(value, ceil), floor)
fun clamp(value : Int, floor : Int, ceil : Int = Integer.MAX_VALUE) = Math.max(Math.min(value, ceil), floor)

data class Player(
        val id            : Int,
        var healthy          : Int,
        var infected      : Int,
        var dead          : Int,
        var infectionRate : Int,
        var contagionRate : Double,
        var lethalityRate : Double,
        var migrationRate : Double)

class Game(val players : List<Player>) {

    fun doAction(playerId: Int, a: Char) {
        val player = players.first { it.id == playerId }
        with(player) {
            when (a) {
                'N' -> {}
                'M' -> infectionRate = clamp(infectionRate - 4, 0)
                'E' -> contagionRate = clamp(contagionRate - .08, 0.0, 1.0)
                'I' -> lethalityRate = clamp(lethalityRate - .04, 0.0, 1.0)
                'V' -> {
                    infectionRate = clamp(infectionRate - 1, 0)
                    contagionRate = clamp(contagionRate - .04, 0.0, 1.0)
                    lethalityRate = clamp(lethalityRate - .02, 0.0, 1.0)
                }
                'C' -> {
                    val cured = Math.min(infected, 10)
                    infected -= cured
                    healthy += cured
                }
                'Q' -> infected = clamp(infected - 30, 0)
                'O' -> migrationRate = clamp(migrationRate + .1, 0.0, 1.0)
                'B' -> migrationRate = clamp(migrationRate - .1, 0.0, 1.0)
                'T' -> {
                    players.forEach {
                        val infected = Math.min(it.healthy, 4)
                        it.healthy -= infected
                        it.infected += infected
                    }
                }
                'W' -> {
                    players.forEach {
                        it.infectionRate++
                        it.lethalityRate = clamp(it.lethalityRate + .02, 0.0, 1.0)
                    }
                }
                'D' -> {
                    players.forEach {
                        it.infectionRate++
                        it.contagionRate = clamp(it.contagionRate + .02, 0.0, 1.0)
                    }
                }
                'P' -> {
                    players.forEach {
                        it.infectionRate = clamp(it.infectionRate - 1, 0)
                        it.contagionRate = clamp(it.contagionRate - .01, 0.0, 1.0)
                        it.lethalityRate = clamp(it.lethalityRate - .01, 0.0, 1.0)
                    }
                }
                else -> throw IllegalArgumentException("Invalid action: $a")
            }
        }
    }

    fun copy() = Game(players.map { it.copy() })

    fun migration() {
        var migratingHealthy = 0
        var migratingInfected = 0
        var totalMigratingWeight = 0.0

        players.forEach {
            migratingHealthy += (it.healthy * it.migrationRate).toInt()
            migratingInfected += (it.infected * it.migrationRate).toInt()
            totalMigratingWeight += it.migrationRate

            it.healthy = (it.healthy * (1 - it.migrationRate)).toInt()
            it.infected *= (it.healthy * (1 - it.migrationRate)).toInt()
        }

        players.forEach {
            it.healthy += (migratingHealthy * it.migrationRate / totalMigratingWeight).toInt()
            it.infected += (migratingInfected * it.migrationRate / totalMigratingWeight).toInt()
        }
    }

    fun infection() {
        players.forEach {
            val infected = it.infectionRate //Allow negative healthy.
            it.healthy -= infected
            it.infected += infected
        }
    }

    fun contagion() {
        players.forEach {
            val infected = (it.infected * it.contagionRate).toInt()
            it.healthy -= infected
            it.infected += infected
        }
    }

    fun extinction() {
        players.forEach {
            val killed = (it.infected * it.lethalityRate).toInt()
            it.infected -= killed
            it.dead += killed
        }
    }

    operator fun get(playerId : Int) = players.first { it.id == playerId }

    fun calculateBenefit(action : Char, myId: Int) : Int {

        val copy1 = copy()
        copy1.doAction(myId, action)

        copy1.migration()
        copy1.infection()
        copy1.contagion()
        copy1.extinction()

        return copy1[myId].healthy
    }

}

fun main(args : Array<String>) {
    @Suppress("NAME_SHADOWING")
    val args = args[0].split(';')

    val round = args[0].toInt()
    val myId = args[1].toInt()

    val players : MutableList<Player> = ArrayList()

    for ( i in 2..args.size-1) {
        val data = args[i].split('_')
        players.add(Player(data[0].toInt(), data[1].toInt(), data[2].toInt(), data[3].toInt(), data[4].toInt(), data[5].toDouble() / 100, data[6].toDouble() / 100, data[7].toDouble() / 100))
    }

    val currentGame = Game(players)

    if (round == 50) {
        println("CCC")  //Extra 30 at end of game.
        return
    }

    for (i in 1..3) {
        val action = determineBestAction(currentGame, myId)
        currentGame.doAction(myId, action)
        print(action)
    }
}

fun determineBestAction(game : Game, myId : Int) : Char {

    if (game[myId].lethalityRate > .02) {        //Save the executives!!!
        return 'I'
    } else if (game[myId].lethalityRate > 0) {
        return 'V'
    }

    val bestAction = "NMEIVQCOBP".maxBy { game.calculateBenefit(it, myId) }!!

    return bestAction

}

Biên dịch với: kotlinc WICKED.kt
Chạy với:kotlin wicked.WICKEDKt

PFC, Kotlin

Nỗ lực giải phóng bệnh trên tất cả mọi người.

package pfc

import java.util.*

fun clamp(value : Double, floor : Double, ceil : Double = Double.POSITIVE_INFINITY) = Math.max(Math.min(value, ceil), floor)
fun clamp(value : Int, floor : Int, ceil : Int = Integer.MAX_VALUE) = Math.max(Math.min(value, ceil), floor)

data class Player(
        val id            : Int,
        var healthy          : Int,
        var infected      : Int,
        var dead          : Int,
        var infectionRate : Int,
        var contagionRate : Double,
        var lethalityRate : Double,
        var migrationRate : Double)

class Game(val players : List<Player>) {

    fun doAction(playerId: Int, a: Char) {
        val player = players.first { it.id == playerId }
        with(player) {
            when (a) {
                'N' -> {}
                'M' -> infectionRate = clamp(infectionRate - 4, 0)
                'E' -> contagionRate = clamp(contagionRate - .08, 0.0, 1.0)
                'I' -> lethalityRate = clamp(lethalityRate - .04, 0.0, 1.0)
                'V' -> {
                    infectionRate = clamp(infectionRate - 1, 0)
                    contagionRate = clamp(contagionRate - .04, 0.0, 1.0)
                    lethalityRate = clamp(lethalityRate - .02, 0.0, 1.0)
                }
                'C' -> {
                    val cured = Math.min(infected, 10)
                    infected -= cured
                    healthy += cured
                }
                'Q' -> infected = clamp(infected - 30, 0)
                'O' -> migrationRate = clamp(migrationRate + .1, 0.0, 1.0)
                'B' -> migrationRate = clamp(migrationRate - .1, 0.0, 1.0)
                'T' -> {
                    players.forEach {
                        val infected = Math.min(it.healthy, 4)
                        it.healthy -= infected
                        it.infected += infected
                    }
                }
                'W' -> {
                    players.forEach {
                        it.infectionRate++
                        it.lethalityRate = clamp(it.lethalityRate + .02, 0.0, 1.0)
                    }
                }
                'D' -> {
                    players.forEach {
                        it.infectionRate++
                        it.contagionRate = clamp(it.contagionRate + .02, 0.0, 1.0)
                    }
                }
                'P' -> {
                    players.forEach {
                        it.infectionRate = clamp(it.infectionRate - 1, 0)
                        it.contagionRate = clamp(it.contagionRate - .01, 0.0, 1.0)
                        it.lethalityRate = clamp(it.lethalityRate - .01, 0.0, 1.0)
                    }
                }
                else -> throw IllegalArgumentException("Invalid action: $a")
            }
        }
    }

    fun copy() = Game(players.map { it.copy() })

    fun migration() {
        var migratingHealthy = 0
        var migratingInfected = 0
        var totalMigratingWeight = 0.0

        players.forEach {
            migratingHealthy += (it.healthy * it.migrationRate).toInt()
            migratingInfected += (it.infected * it.migrationRate).toInt()
            totalMigratingWeight += it.migrationRate

            it.healthy = (it.healthy * (1 - it.migrationRate)).toInt()
            it.infected *= (it.healthy * (1 - it.migrationRate)).toInt()
        }

        players.forEach {
            it.healthy += (migratingHealthy * it.migrationRate / totalMigratingWeight).toInt()
            it.infected += (migratingInfected * it.migrationRate / totalMigratingWeight).toInt()
        }
    }

    fun infection() {
        players.forEach {
            val infected = Math.min(it.healthy, it.infectionRate)
            it.healthy -= infected
            it.infected += infected
        }
    }

    fun contagion() {
        players.forEach {
            val infected = Math.min(it.healthy, (it.infected * it.contagionRate).toInt())
            it.healthy -= infected
            it.infected += infected
        }
    }

    fun extinction() {
        players.forEach {
            val killed = (it.infected * it.lethalityRate).toInt()
            it.infected -= killed
            it.dead += killed
        }
    }

    operator fun get(playerId : Int) = players.first { it.id == playerId }

    fun calculateBenefit(action : Char, myId: Int) : Int {

        val copy1 = copy()
        copy1.doAction(myId, action)

        copy1.migration()
        copy1.infection()
        copy1.contagion()
        copy1.extinction()

        return copy1.players.sumBy { it.infected }
    }

}

fun main(args : Array<String>) {
    @Suppress("NAME_SHADOWING")
    val args = args[0].split(';')

    @Suppress("UNUSED_VARIABLE")
    val round = args[0].toInt()
    val myId = args[1].toInt()

    val players : MutableList<Player> = ArrayList()

    for ( i in 2..args.size-1) {
        val data = args[i].split('_')
        players.add(Player(data[0].toInt(), data[1].toInt(), data[2].toInt(), data[3].toInt(), data[4].toInt(), data[5].toDouble() / 100, data[6].toDouble() / 100, data[7].toDouble() / 100))
    }

    val currentGame = Game(players)

    for (i in 1..3) {
        val action = determineBestAction(currentGame, myId)
        currentGame.doAction(myId, action)
        print(action)
    }
}

fun determineBestAction(game : Game, myId : Int) : Char {

    val bestAction = "NMEIVCQOBTWDP".maxBy { game.calculateBenefit(it, myId) }!!

    return bestAction

}

Biên dịch với: kotlinc PFC.kt
Chạy với:kotlin pfc.PFCKt

Khủng bố, Kotlin

Cố gắng làm cho tất cả mọi người chết.

package terrorist

import java.util.*

fun clamp(value : Double, floor : Double, ceil : Double = Double.POSITIVE_INFINITY) = Math.max(Math.min(value, ceil), floor)
fun clamp(value : Int, floor : Int, ceil : Int = Integer.MAX_VALUE) = Math.max(Math.min(value, ceil), floor)

data class Player(
        val id            : Int,
        var healthy          : Int,
        var infected      : Int,
        var dead          : Int,
        var infectionRate : Int,
        var contagionRate : Double,
        var lethalityRate : Double,
        var migrationRate : Double)

class Game(val players : List<Player>) {

    fun doAction(playerId: Int, a: Char) {
        val player = players.first { it.id == playerId }
        with(player) {
            when (a) {
                'N' -> {}
                'M' -> infectionRate = clamp(infectionRate - 4, 0)
                'E' -> contagionRate = clamp(contagionRate - .08, 0.0, 1.0)
                'I' -> lethalityRate = clamp(lethalityRate - .04, 0.0, 1.0)
                'V' -> {
                    infectionRate = clamp(infectionRate - 1, 0)
                    contagionRate = clamp(contagionRate - .04, 0.0, 1.0)
                    lethalityRate = clamp(lethalityRate - .02, 0.0, 1.0)
                }
                'C' -> {
                    val cured = Math.min(infected, 10)
                    infected -= cured
                    healthy += cured
                }
                'Q' -> infected = clamp(infected - 30, 0)
                'O' -> migrationRate = clamp(migrationRate + .1, 0.0, 1.0)
                'B' -> migrationRate = clamp(migrationRate - .1, 0.0, 1.0)
                'T' -> {
                    players.forEach {
                        val infected = Math.min(it.healthy, 4)
                        it.healthy -= infected
                        it.infected += infected
                    }
                }
                'W' -> {
                    players.forEach {
                        it.infectionRate++
                        it.lethalityRate = clamp(it.lethalityRate + .02, 0.0, 1.0)
                    }
                }
                'D' -> {
                    players.forEach {
                        it.infectionRate++
                        it.contagionRate = clamp(it.contagionRate + .02, 0.0, 1.0)
                    }
                }
                'P' -> {
                    players.forEach {
                        it.infectionRate = clamp(it.infectionRate - 1, 0)
                        it.contagionRate = clamp(it.contagionRate - .01, 0.0, 1.0)
                        it.lethalityRate = clamp(it.lethalityRate - .01, 0.0, 1.0)
                    }
                }
                else -> throw IllegalArgumentException("Invalid action: $a")
            }
        }
    }

    fun copy() = Game(players.map { it.copy() })

    fun migration() {
        var migratingHealthy = 0
        var migratingInfected = 0
        var totalMigratingWeight = 0.0

        players.forEach {
            migratingHealthy += (it.healthy * it.migrationRate).toInt()
            migratingInfected += (it.infected * it.migrationRate).toInt()
            totalMigratingWeight += it.migrationRate

            it.healthy = (it.healthy * (1 - it.migrationRate)).toInt()
            it.infected *= (it.healthy * (1 - it.migrationRate)).toInt()
        }

        players.forEach {
            it.healthy += (migratingHealthy * it.migrationRate / totalMigratingWeight).toInt()
            it.infected += (migratingInfected * it.migrationRate / totalMigratingWeight).toInt()
        }
    }

    fun infection() {
        players.forEach {
            val infected = Math.min(it.healthy, it.infectionRate)
            it.healthy -= infected
            it.infected += infected
        }
    }

    fun contagion() {
        players.forEach {
            val infected = Math.min(it.healthy, (it.infected * it.contagionRate).toInt())
            it.healthy -= infected
            it.infected += infected
        }
    }

    fun extinction() {
        players.forEach {
            val killed = (it.infected * it.lethalityRate).toInt()
            it.infected -= killed
            it.dead += killed
        }
    }

    operator fun get(playerId : Int) = players.first { it.id == playerId }

    fun calculateBenefit(action : Char, myId: Int) : Int {

        val copy1 = copy()
        copy1.doAction(myId, action)

        copy1.migration()
        copy1.infection()
        copy1.contagion()
        copy1.extinction()

        return copy1.players.sumBy { it.dead }
    }

}

fun main(args : Array<String>) {
    @Suppress("NAME_SHADOWING")
    val args = args[0].split(';')

    @Suppress("UNUSED_VARIABLE")
    val round = args[0].toInt()
    val myId = args[1].toInt()

    val players : MutableList<Player> = ArrayList()

    for ( i in 2..args.size-1) {
        val data = args[i].split('_')
        players.add(Player(data[0].toInt(), data[1].toInt(), data[2].toInt(), data[3].toInt(), data[4].toInt(), data[5].toDouble() / 100, data[6].toDouble() / 100, data[7].toDouble() / 100))
    }

    if (round == 50) {
        println("TTT")  //Let's mess up the scoreboard :D
        return
    }

    val currentGame = Game(players)
    for (i in 1..3) {
        val action = determineBestAction(currentGame, myId)
        currentGame.doAction(myId, action)
        print(action)
    }
}

fun determineBestAction(game : Game, myId : Int) : Char {

    if (game[myId].lethalityRate > .02) {          //We don't want to hurt ourselves.
        return 'I'
    } else if (game[myId].lethalityRate > 0) {
        return 'V'
    }

    val bestAction = "NMEIVCQOBTWDP".maxBy { game.calculateBenefit(it, myId) }!!

    return bestAction

}

Biên dịch với: kotlinc Terrorist.kt
Chạy với:kotlin terrorist.TerroristKt

Madagascar, Java

Đúng, đi theo con đường Madagascar. Vòng đầu tiên, chúng tôi BBBđóng cửa biên giới của chúng tôi. Mặt khác, nó cung cấp cho một phương pháp chữa bệnh, và tập trung vào vắc-xin địa phương.

public class Madagascar{
    public static void main(String[]args){
        Boolean bool = false;
        bool = args[0].startsWith("1;");

        if(bool) {
            System.out.println("BBB");
        }
        else {
            System.out.println("CVV");
        }
    }
}

_{Edit1 - I more-Madagascar'd
Edit2 - Cảm ơn @Geobits vì startsWithlời nhắc}

Muối, Kotlin

Bot này tồn tại cho đến khi tất cả những người chơi khó chịu đã chết. Sau đó, nó chữa khỏi dân số và tái sinh thị trấn với những người khỏe mạnh.

Bot này có 5 bước:

1. Đóng biên giới.
2. Cho phép người nhiễm bệnh chết, nhưng không quá nhanh (tìm chính xác tốc độ quá nhanh là phần khó).
3. Ngăn ngừa nhiễm trùng lây nhiễm cho người khỏe mạnh.
4. Chữa người bị nhiễm bệnh (bằng muối: P).
5. Tái sản xuất.

Đây là:

package salt

import java.io.File
import java.util.*

data class Player(
        val id            : Int,
        var healthy       : Int,
        var infected      : Int,
        var dead          : Int,
        var infectionRate : Int,
        var contagionRate : Int,
        var lethalityRate : Int,
        var migrationRate : Int)

fun main(args : Array<String>) {
    @Suppress("NAME_SHADOWING")
    val args = args[0].split(';')

    val round = args[0].toInt()
    val myId = args[1].toInt()

    val players : MutableList<Player> = ArrayList()

    for ( i in 2..args.size-1) {
        val data = args[i].split('_')
        players.add(Player(data[0].toInt(), data[1].toInt(), data[2].toInt(), data[3].toInt(), data[4].toInt(), data[5].toInt(), data[6].toInt(), data[7].toInt()))
    }

    if (round == 50) {
        println("CCC")  //Extra 30 at end of game.
        return
    }

    var actionsLeft = 3

    val me = players.first { it.id == myId }
    val dataFile = File("Salt.txt")
    val lastRoundInfected : Int
    var roundsInHole : Int
    if (round == 1) {
        lastRoundInfected = 1
        roundsInHole = 0
    } else {
        val lines = dataFile.readLines()
        lastRoundInfected = lines[0].toInt()
        roundsInHole = lines[1].toInt()
    }

    val wantedInfected = lastRoundInfected * Math.pow(1/1.5, 1.0/5) * (if (round % 5 == 0 && round != 0) 1.5 else 1.0)

    while (me.migrationRate > 0) {
        print('B')          //Close borders
        me.migrationRate = Math.max(0, me.migrationRate - 10)
        actionsLeft--
    }

    if (me.infected <= wantedInfected) {   //Our infected are dieing too quickly
        roundsInHole++
    } else {
        roundsInHole = Math.max(0, roundsInHole - 1)
    }

    if (me.lethalityRate > 0) {
        var lethalityRateDelta = roundsInHole * 2
        while (lethalityRateDelta > 0 && me.lethalityRate > 0 && actionsLeft > 0) {
            if (lethalityRateDelta == 2 || me.lethalityRate <= 2) {
                lethalityRateDelta -= 2
                print('V')  //Research vaccines
                me.infectionRate = Math.max(0, me.infectionRate - 1)
                me.contagionRate = Math.max(0, me.contagionRate - 4)
                me.lethalityRate = Math.max(0, me.lethalityRate - 2)
                actionsLeft--
            } else {
                lethalityRateDelta -= 4
                print('I')
                me.lethalityRate = Math.max(0, me.lethalityRate - 4)
                actionsLeft--
            }
        }
    }

    dataFile.writeText("${me.infected}\n$roundsInHole")

    while (actionsLeft > 0) {
        if (me.infectionRate + me.contagionRate * me.infected / 100 <= 0) {
            break
        }
        val mWeight = Math.min(me.infectionRate, 4)
        val eWeight = Math.min(me.contagionRate, 8) * me.infected / 100
        val vWeight = Math.min(me.contagionRate, 4) * me.infected / 100 + Math.min(me.infectionRate, 1)
        if (mWeight > eWeight && mWeight > vWeight) {
            print('M')      //Research microbiology
            me.infectionRate = Math.max(0, me.infectionRate - 4)
        } else if (eWeight > vWeight){
            print('E')      //Research epidemiology
            me.contagionRate = Math.max(0, me.contagionRate - 8)
        } else {
            print('V')      //Research vaccines
            me.infectionRate = Math.max(0, me.infectionRate - 1)
            me.contagionRate = Math.max(0, me.contagionRate - 4)
            me.lethalityRate = Math.max(0, me.lethalityRate - 2)
        }
        actionsLeft--
    }

    while (actionsLeft > 0) {
        if (me.infected <= 0) {
            break
        }
        print('C')          //Cure
        val cured = Math.min(me.infected, 10)
        me.infected -= cured
        me.healthy += cured
        actionsLeft--
    }

    while (actionsLeft > 0) {
        print('N')          //Do nothing
        actionsLeft--
    }

    return
}

Biên dịch với: kotlinc Salt.kt
Chạy với:kotlin salt.SaltKt

EDIT: Khả năng sống sót cao hơn cho đến khi hầu hết các bot "tận thế" đã chết.

Kết quả ví dụ:

1. Salt (247, 12, 280)
2. InfectedTown (30, 2016, 843)
3. ZombieState (30, 1030, 609)
4. WICKED (30, 413, 222)
5. Triage (18, 965, 706)
6. Mooch (18, 657, 597)
7. MadScienceBot (18, 305, 647)
8. TheKeeper (13, 0, 158)
9. FamilyValues (10, 110, 373)
10. Madagascar (2, 0, 271)
11. Terrorist (0, 1358, 651)
12. InfectionBot (0, 1217, 830)
13. Medic (0, 27, 340)
14. MedicBot (0, 1, 200)
15. UndecidedBot (0, 0, 33)
16. Researcher (0, 0, 63)
17. TheCure (0, 0, 71)
18. TrumpBot (0, 0, 88)
19. WeaponOfMassDissemination (0, 0, 137)
20. Strategist (0, 0, 142)
21. PassiveBot (0, 0, 149)
22. DisseminationBot (0, 0, 152)
23. PassiveBot (0, 0, 155)
24. Crossroads (0, 0, 164)
25. InfectedHaven (0, 0, 170)
26. Socialist (0, 0, 172)
27. BioterroristBot (0, 0, 175)
28. XenoBot (0, 0, 184)
29. ThePacifist (0, 0, 199)
30. CullBot (0, 0, 294)
31. AllOrNothing (0, 0, 327)

PureBot (Haskell)

PureBot ghét một điều: Tác dụng phụ!
Nó sẽ cố gắng xử lý tất cả các tác dụng phụ, và nếu mọi thứ diễn ra tốt đẹp, nó sẽ làm giảm lượng tác dụng phụ do thế giới bên ngoài tạo ra.
Nó cũng bỏ qua tất cả các tác dụng phụ trong tính toán của nó.
Điều này làm cho nó chơi tốt hơn đáng kể trước những kẻ thù thụ động (không thay đổi tỷ lệ toàn cầu).

Nếu infected, infection, contagion, lethalityvà migrationtất cả đều bằng không, nó sẽ giúp các bot khác với P(cho Pure) lệnh.

module Main where
import Control.Monad (void)
import Data.List (find)
import System.Environment (getArgs)
import System.Exit (exitFailure)
import Text.Parsec

-- | The world
data World = World
    { worldRound  :: Int    -- ^ The current round
    , worldTownID :: Int    -- ^ The current town ID
    , worldTowns  :: [Town] -- ^ List of all towns in the world
    }
    deriving (Show)

-- | A town in the world
data Town = Town
    { townID            :: Int -- ^ The town ID
    , townDeath         :: Int -- ^ The number of death people in the town
    , townHealthy       :: Int -- ^ The number of healthy people in the town
    , townInfected      :: Int -- ^ The number of infected people in the town
    , townInfectionRate :: Int -- ^ The infaction rate of the town
    , townContagionRate :: Int -- ^ The contagion rate of the town
    , townLethalityRate :: Int -- ^ The lethality rate of the town
    , townMigrationRate :: Int -- ^ The migration rate of the town
    }
    deriving (Show)

-- | Parse a Int
parseInt :: Parsec String () Int
parseInt = do
    sign <- option '+' $ oneOf "+-"
    numb <- read <$> many1 digit
    return $ if sign == '+'
        then numb
        else negate numb

-- | Parse a town
parseTown :: Parsec String () Town
parseTown = do
    nID <- parseInt
    void $ char '_'
    nHealthy <- parseInt
    void $ char '_'
    nInfected <- parseInt
    void $ char '_'
    nDeath <- parseInt
    void $ char '_'
    nInfectionRate <- parseInt
    void $ char '_'
    nContagionRate <- parseInt
    void $ char '_'
    nLethalityRate <- parseInt
    void $ char '_'
    nMigrationRate <- parseInt
    return Town
        { townID            = nID
        , townDeath         = nDeath
        , townHealthy       = nHealthy
        , townInfected      = nInfected
        , townInfectionRate = nInfectionRate
        , townContagionRate = nContagionRate
        , townLethalityRate = nLethalityRate
        , townMigrationRate = nMigrationRate }

-- | Parse a world
parseWorld :: Parsec String () World
parseWorld = do
    nRound <- parseInt
    void $ char ';'
    nTownID <- parseInt
    void $ char ';'
    towns <- parseTown `sepBy` char ';'
    let nTowns = length towns
    if nTowns < nTownID
        then let nExpected   = (nTownID - nTowns) in
            fail $ "expected at least " ++ show nExpected ++ " more town(s)"
        else return World
            { worldRound  = nRound
            , worldTownID = nTownID
            , worldTowns  = towns }

-- | Update a town
updateTown :: World -> Town -> String
updateTown world town = take 3 $ lastRound
                   ++ prepareForReproduction
                   ++ decreaseInfected
                   ++ decreaseMigration
                   ++ decreaseInfection
                   ++ decreaseContagion
                   ++ decreaseLethality
                   ++ decreaseWorldWide
  where
    -- | The current round number
    nRound         = worldRound world
    -- | The current number of infected
    nInfected      = townInfected town
    -- | The current lethality rate
    nLethalityRate = townLethalityRate town
    -- | The current migration rate
    nMigrationRate = townMigrationRate town
    -- | The current infection rate
    nInfectionRate = townInfectionRate town
    -- | The current contagion rate
    nContagionRate = townContagionRate town
    -- | What to do on the last round
    lastRound
        | nRound == 50 = "CCC"
        | otherwise    = ""
    -- | What to do in order to prepare for reproduction
    prepareForReproduction
        | (nRound+1) `mod` 5 == 0 = decreaseInfected
        | otherwise               = ""
    -- | What to do in order to decrease infected
    decreaseInfected
        | nInfected > 25 = "CCC"
        | nInfected > 15 = "CC"
        | nInfected > 5  = "C"
        | otherwise      = ""
    -- | What to do in order to decrease lethality
    decreaseLethality
        | nLethalityRate > 4 = "I"
        | otherwise          = ""
    -- | What to do in order to decrease migration
    decreaseMigration
        | nMigrationRate > 0 = "B"
        | otherwise          = ""
    -- | What to do in order to decrease infection
    decreaseInfection
        | nInfectionRate > 0 = "M"
        | otherwise          = ""
    -- | What to do in order to decrease contagion
    decreaseContagion
        | nContagionRate > 4 = "E"
        | otherwise          = ""
    -- | What to do if everything else has been taken care of
    decreaseWorldWide = "PPP"

-- | Update a world
updateWorld :: World -> Maybe String
updateWorld world = updateTown world <$> town
  where
    town          = find ((==worldTownID world) . townID) (worldTowns world)

-- | Main program entry point
main :: IO ()
main = do
    cmds <- concat <$> getArgs
    case parse parseWorld "stdin" cmds of
        Left err    -> print err >> exitFailure
        Right world -> case updateWorld world of
            Just cmd -> putStrLn cmd
            Nothing  -> putStrLn "Failed to update world!" >> exitFailure