1972: [Sdoi2010]猪国杀 - BZOJ
题目太长，我只发链接吧
wikioi（排版看起来舒服一点）：http://www.wikioi.com/problem/1834/
bzoj：http://www.lydsy.com:808/JudgeOnline/problem.php?id=1972
首先是题目的样例错了，第三个人有6个J
还有，数据有问题，第1,2个点牌不够用，抽完了就一直抽最后一张牌
调了一天多，我的模拟能力真TM差啊
犯了几个傻逼错误
1.让死人（反贼）继续出牌，用南蛮入侵杀死队友，导致主公获胜
2.主公杀死忠臣没有弃装备，后来用诸葛连杀掉反贼获胜
3.最烦的就是无懈可击的顺序了，先从出锦囊的人开始逆时针献殷勤，如果被无懈可击了，就回到上一个献殷勤的人的下家开始献殷勤（一开始直接往后，点都是交替错的（A对B就错），就是没有全对）
1 type 2 aa=array[0..2010]of char; 3 pig=record 4 pai:aa; 5 blood,num:longint; 6 zhuge,tiaozhong,tiaofan,leifan,sha:boolean; 7 shenfen:char; 8 end; 9 var 10 a:array[0..10]of pig; 11 p:array[0..2010]of char; 12 n,m,now,fanzeishu:longint; 13 14 procedure print; 15 var 16 i,j:longint; 17 begin 18 for i:=1 to n do 19 with a[i] do 20 begin 21 if blood>0 then 22 begin 23 for j:=1 to num do 24 if j<num then write(pai[j],' ') 25 else write(pai[j]); 26 end 27 else write('DEAD'); 28 writeln; 29 end; 30 halt; 31 end; 32 33 procedure MPwin; 34 begin 35 writeln('MP'); 36 print; 37 end; 38 39 procedure FPwin; 40 begin 41 writeln('FP'); 42 print; 43 end; 44 45 procedure init; 46 var 47 i,j:longint; 48 begin 49 readln(n,m); 50 for i:=1 to n do 51 with a[i] do 52 begin 53 read(shenfen,pai[0]); 54 if shenfen='F' then inc(fanzeishu); 55 for j:=1 to 4 do 56 read(pai[j+1],pai[j]); 57 blood:=4; 58 num:=4; 59 readln; 60 end; 61 a[1].tiaozhong:=true; 62 if fanzeishu=0 then MPwin; 63 for i:=1 to m do 64 read(p[i],p[i+1]); 65 now:=1; 66 end; 67 68 procedure delete(var pai:aa;x:longint;var num:longint); 69 var 70 i:longint; 71 begin 72 for i:=x to num-1 do 73 pai[i]:=pai[i+1]; 74 dec(num); 75 end; 76 77 function next(x:longint):longint; 78 begin 79 while true do 80 begin 81 x:=x mod n+1; 82 if a[x].blood>0 then exit(x); 83 end; 84 end; 85 86 function diyi(x,y:longint):boolean; 87 begin 88 exit(((a[x].shenfen='F') and (a[y].tiaozhong)) or ((a[x].shenfen<>'F') and (a[y].tiaofan)) or ((x=1) and (a[y].leifan))); 89 end; 90 91 function youjun(x,y:longint):boolean; 92 begin 93 exit(((a[x].shenfen='F') and (a[y].tiaofan)) or ((a[x].shenfen<>'F') and (a[y].tiaozhong))); 94 end; 95 96 procedure mopai(x:longint); 97 begin 98 if now>m then now:=m; 99 with a[x] do 100 begin 101 inc(num); 102 pai[num]:=p[now]; 103 inc(now); 104 end; 105 end; 106 107 procedure tiao(x:longint); 108 begin 109 with a[x] do 110 begin 111 if shenfen='F' then tiaofan:=true 112 else tiaozhong:=true; 113 leifan:=false; 114 end; 115 end; 116 117 function chupai(x:longint;c:char):boolean; 118 var 119 i:longint; 120 begin 121 with a[x] do 122 begin 123 for i:=1 to num do 124 if pai[i]=c then 125 begin 126 delete(pai,i,num); 127 exit(true); 128 end; 129 exit(false); 130 end; 131 end; 132 133 procedure kill(x,y:longint); 134 begin 135 if a[y].shenfen='F' then 136 begin 137 mopai(x); 138 mopai(x); 139 mopai(x); 140 end; 141 if (x=1) and (a[y].shenfen='Z') then 142 begin 143 a[x].num:=0; 144 a[x].zhuge:=false; 145 end; 146 end; 147 148 procedure decblood(x:longint); 149 begin 150 with a[x] do 151 begin 152 dec(blood); 153 if blood=0 then 154 begin 155 if chupai(x,'P')=false then 156 begin 157 if shenfen='F' then dec(fanzeishu); 158 if fanzeishu=0 then MPwin; 159 if shenfen='M' then FPwin; 160 end 161 else blood:=1; 162 end; 163 end; 164 end; 165 166 function dixiao(x:longint):boolean; 167 var 168 i:longint; 169 begin 170 i:=next(x); 171 while i<>x do 172 begin 173 if diyi(i,x) and chupai(i,'J') then 174 begin 175 tiao(i); 176 exit(true); 177 end; 178 i:=next(i); 179 end; 180 exit(false); 181 end; 182 183 procedure gongji(x,y:longint); 184 begin 185 if chupai(y,'D')=false then 186 begin 187 decblood(y); 188 if a[y].blood=0 then kill(x,y); 189 end; 190 end; 191 192 function jiuyuan(x,k:longint):boolean; 193 var 194 i:longint; 195 flag:boolean; 196 begin 197 i:=k; 198 flag:=true; 199 while true do 200 begin 201 if (i=k) and (flag=false) then break; 202 if i=k then flag:=false; 203 if (youjun(i,x)) and (chupai(i,'J')) then 204 begin 205 tiao(i); 206 flag:=true; 207 if not dixiao(i) then exit(true); 208 end; 209 i:=next(i); 210 end; 211 exit(false); 212 end; 213 214 procedure fight(x,y:longint); 215 begin 216 if (x=1) and (a[y].shenfen='Z') then 217 begin 218 decblood(y); 219 if a[y].blood=0 then kill(x,y); 220 end 221 else 222 if jiuyuan(y,x)=false then 223 begin 224 while true do 225 begin 226 if chupai(y,'K')=false then 227 begin 228 decblood(y); 229 if a[y].blood=0 then kill(x,y); 230 exit; 231 end; 232 if chupai(x,'K')=false then 233 begin 234 decblood(x); 235 if a[x].blood=0 then kill(y,x); 236 exit; 237 end; 238 end; 239 end; 240 end; 241 242 procedure nanman(x:longint); 243 var 244 i:longint; 245 begin 246 i:=next(x); 247 while i<>x do 248 begin 249 if jiuyuan(i,x)=false then 250 begin 251 if chupai(i,'K')=false then 252 begin 253 decblood(i); 254 if (i=1) and (not a[x].tiaozhong) and (not a[x].tiaofan) then a[x].leifan:=true; 255 if a[i].blood=0 then kill(x,i); 256 end; 257 end; 258 i:=next(i); 259 end; 260 end; 261 262 procedure wanjian(x:longint); 263 var 264 i:longint; 265 begin 266 i:=next(x); 267 while i<>x do 268 begin 269 if jiuyuan(i,x)=false then 270 begin 271 if chupai(i,'D')=false then 272 begin 273 decblood(i); 274 if (i=1) and (not a[x].tiaozhong) and (not a[x].tiaofan) then a[x].leifan:=true; 275 if a[i].blood=0 then kill(x,i); 276 end; 277 end; 278 i:=next(i); 279 end; 280 end; 281 282 procedure xingdong(x:longint); 283 var 284 i,k:longint; 285 begin 286 i:=1; 287 with a[x] do 288 while i<=num do 289 begin 290 if a[x].blood=0 then exit; 291 if pai[i]='N' then 292 begin 293 delete(pai,i,num); 294 nanman(x); 295 i:=1; 296 continue; 297 end; 298 if pai[i]='W' then 299 begin 300 delete(pai,i,num); 301 wanjian(x); 302 i:=1; 303 continue; 304 end; 305 if (pai[i]='K') and ((not sha) or zhuge) then 306 begin 307 k:=next(x); 308 if diyi(x,k) then 309 begin 310 delete(pai,i,num); 311 tiao(x); 312 gongji(x,k); 313 sha:=true; 314 i:=1; 315 continue; 316 end; 317 end; 318 if pai[i]='F' then 319 begin 320 k:=next(x); 321 if x=1 then 322 begin 323 while k<>x do 324 begin 325 if diyi(x,k) then 326 begin 327 delete(pai,i,num); 328 break; 329 end; 330 k:=next(k); 331 end; 332 if k<>x then 333 begin 334 fight(x,k); 335 i:=1; 336 continue; 337 end; 338 end; 339 if shenfen='F' then 340 begin 341 delete(pai,i,num); 342 tiao(x); 343 fight(x,1); 344 i:=1; 345 continue; 346 end; 347 if shenfen='Z' then 348 begin 349 while k<>x do 350 begin 351 if diyi(x,k) then 352 begin 353 delete(pai,i,num); 354 break; 355 end; 356 k:=next(k); 357 end; 358 if k<>x then 359 begin 360 tiao(x); 361 fight(x,k); 362 i:=1; 363 continue; 364 end; 365 end; 366 end; 367 if (pai[i]='P') and (blood<4) then 368 begin 369 inc(blood); 370 delete(pai,i,num); 371 i:=1; 372 continue; 373 end; 374 if pai[i]='Z' then 375 begin 376 zhuge:=true; 377 delete(pai,i,num); 378 i:=1; 379 continue; 380 end; 381 inc(i); 382 end; 383 end; 384 385 procedure work; 386 var 387 i:longint; 388 begin 389 i:=0; 390 while true do 391 begin 392 i:=i mod n+1; 393 if a[i].blood=0 then continue; 394 mopai(i); 395 mopai(i); 396 a[i].sha:=false; 397 xingdong(i); 398 end; 399 end; 400 401 begin 402 init; 403 work; 404 end.