【动态规划】【RQ458】决斗

题目描述

Michel最近迷上了买彩票。现在，某赌场就一轮决斗的结果开设了赌局。这个赌局同样被Michel盯上了，他决定购买这个 彩票。
当然，身为有教养有文化的人，Michel买彩票并不是胡乱买的。他在买之前进行了详尽的市场调查，并拿到了任意两个选手对决后的胜败情 况。可以假定正式比赛的时候决斗后果也是一样的。
同时决斗的规则是这样的：
首先，选手们围成一个圈。每一回合随机抽出一个选手的号码，让 他和他右边的选手决斗。开始时，1号右边的是2号，2号右边的试三号，依此类推。特别的，n号右边的是1号。战败的选手则退出战场。例如2号战败，则1号 右边的就变成了3号。
现在，他找到了你，希望你能告诉他哪些选手可能赢。

数据范围：
对于30％的数据，n=5
对 于100％的数据，1<=n<=500

[感谢:陈启峰出题,清北学堂提供]

输入格式

输入数据的第一行为一个整数n，表示有n个选手。
接下来n行，每行n个整数，第I+1行第J列表示第I个选手与第J个 选手对决后的胜败情况，0表示选手I失败，1表示选手I获胜。

输出格式

输出数据的第一行为一个整数k，表示有多少选手可能赢。
接下来k行，每行一个整数，从小到大输出这些选手的编号。

样例输入

2 0 0 1 0

样例输出

1 2

三维状态图像

 

---

 

题解见RQ相关

 

var a,b:array[0..10000,0..10000] of boolean; i,j,k,l,n,c,tot:longint; ans:array[0..10000] of longint; begin readln(n); for i:=1 to n do begin for j:=1 to n do begin read(c); if c=0 then begin a[i,j]:=false; a[i,j+n]:=false; a[i+n,j]:=false; a[i+n,j+n]:=false; end else begin a[i,j]:=true; a[i,j+n]:=true; a[i+n,j]:=true; a[i+n,j+n]:=true; end; end; readln; end; for i:=1 to 2*n do b[i,i+1]:=true; for l:=1 to n do for i:=1 to 2*n do begin j:=i+l; if j>2*n then break; for k:=i+1 to j-1 do b[i,j]:=b[i,j] or (a[i,k] or not a[k,j]) and b[i,k] and b[k,j]; end; for i:=1 to n do if b[i,i+n] then begin inc(tot); ans[tot]:=i; end; writeln(tot); for i:=1 to tot do writeln(ans[i]); end.