我看见很多人因为题意很繁杂所以直接贴题面,这样是不对滴~~,其实题意没你们想的那么复杂。
题意:给你一个数N,设序列A=0,1,,,,N-1.现在让你求一个T序列。每一个a[i]都可以变为T[i],但是我们定义两个数之间的距离为min(abs(x-y),n-abs(x-y)),现在给出你所有的距离D[I]让你求出T序列。
刚开始我以为直接满足就可以,所以认为直接O(N)扫一遍判断距离的四种情况就可以了。。没想到答案是个0到N-1的序列。
那么我们怎么办呢?
这里我们需要建图,模型参考的BYVOID大神(觉得大神脑洞好大啊):
抽象成图论模型,建立一个二分图,X集合每个顶点代表0,1,…,N-1的N个整数,Y集合每个顶点为对应的N个整数。X集合的第i个顶点向其环上距离为Di的Y集合中的两个顶点连一条边。样例建图后如图1所示。
其实就是倒着匹配,然后贪心的去最小的,因为如果不可以的话,前面的会自行调整,所以这个算法是正确的。
顺便复习了一下匈牙利算法。。差点忘记了具体细节。。。还好很简单。。
uses math;
var
i,j,k,p,n,m,tot,x,a,b:longint;
vis:array[0..10000]of boolean;
head,go,next,ans,c:array[0..100000]of longint;
function dis(x,y:longint):longint;
begin
exit(min(abs(x-y),n-abs(x-y)) );
end;
procedure add(x,y:longint);
begin
inc(tot);
next[tot]:=head[x];
head[x]:=tot;
go[tot]:=y;
end;
function find(x:longint):boolean;
var
i:longint;
begin
i:=head[x];
while i<>0 do
begin
if not vis[go[i]] then
begin
vis[go[i]]:=true;
if (c[go[i]]=0)or(find(c[go[i]]))then
begin
c[go[i]]:=x;
exit(true);
end;
end;
i:=next[i];
end;
exit(false);
end;
procedure swap(var x,y:longint);
var
t:longint;
begin
t:=x;
x:=y;
y:=t;
end;
begin
readln(n);
for i:=0 to n-1 do
begin
read(x);
a:=i-x+n;
b:=i+x;
a:=a mod n;
b:=b mod n;
if a<b then swap(a,b);
if dis(a,i)=x then add(i,a);
if dis(b,i)=x then add(i,b);
end;
for i:=n-1 downto 0 do
begin
fillchar(vis,sizeof(vis),0);
if not find(i) then
begin
writeln('No Answer');
exit;
end;
end;
for i:=0 to n-1 do ans[c[i]]:=i;
for i:=0 to n-1 do write(ans[i],' ');
end.