Fire

Fire

分析：

首先，明确题意：b1，b2，……，bn 交换为b2，……，bn，b1，但这并不是意味着只能从b1开始交换，（这点从样例中可以看出），并且也不意味着交换的必须是连续的一串，可以是几个单点，如： 原序列：1 2 3 4 5，交换（1 3 5）后

新序列：3 2 5 4 1

交换时必须按照环的方式顺时针或逆时针转动，这并没有限制，只需要一个位置移动到另一个位置时将他顶替掉，他去找他自己应该到的位置就好了，最终是按一个环的移动方式移动，但不一定是从左到右或从右到左，方向交叉。

所以：

我们首先得到目标序列1  2  5  4  3

然后与原序列比较    1  2  3  4  5

做差：              0  0  2  0  -2

1，2，4的差值一样，另外，因为原序列的有序性，无论如何转动目标序列或原序列，1,2,4的差值也一定相同，所以，差值相同的数目一定不变。那么差值相同意味着什么呢，由例子可以看出，差值为零，则该序列与原序列状态相同，所以，我们把差值相同个数最多的移动为零，则剩下的进行交换，所花费的代价一定最小（整体移动一个序列不花费代价，因为整体移动时符合题意，并且没有交换） 。

做法：

按照题意得到目标序列，若得不到原序列则输出 -1；

得到目标序列以后与原序列比较，做差，找到差值相同数目最多的个数S，然后用总数减去S，即为所要花费的最小代价。另外，有与序列方向不确定，所以我们要将原序列倒过来，再按照此做法做一遍。两次取最小值便是答案。

代码实现：

program exam;

var

i,j,kl,kr,m,n,sum,max,min,ans:longint;

a:array[1..50000] of longint;

b:array[0..50000] of longint;

t:array[0..50000] of longint;

l,r:array[1..50000] of longint;

begin

assign(input,'1.txt');

reset(input);

readln(n);

for i:=1 to n do

readln(l[i],r[i]);

a[1]:=1;

a[2]:=r[1];

sum:=2;

for i:=1 to n do

begin

kl:=l[a[sum]];

kr:=r[a[sum]];

if a[sum-1]=kl then

begin

inc(sum);

a[sum]:=kr;

end;

if a[sum-1]=kr then

begin

inc(sum);

a[sum]:=kl;

end;

if (a[sum]<>kl) and (a[sum]<>kr) then

begin

writeln('-1');

halt;

end;

if sum=n then

break;

end;

for i:=1 to n do

begin

b[i]:=a[i]-i;

if b[i]<0 then

b[i]:=b[i]+n;

end;

max:=0;

for i:=1 to n do

begin

inc(t[b[i]]);

if t[b[i]]>max then

max:=t[b[i]];

end;

ans:=n-max;

fillchar(b,sizeof(b),0);

fillchar(t,sizeof(t),0);

max:=0;

for i:=1 to n do

begin

b[i]:=a[i]-(n-i+1);

if b[i]<0 then

b[i]:=b[i]+n;

end;

for i:=1 to n do

begin

inc(t[b[i]]);

if t[b[i]]>max then

max:=t[b[i]];

end;

min:=n-max;

if min<ans then

ans:=min;

writeln(ans);

close(input);

end.

span><�6 0]X�NMsoNormal>begin

ans:=maxlongint;

readln(n);

for i:=1 to n do

readln(a[i]);

tmp:=a;

qsort(1,n);

c:=a;

a:=tmp;

dp;

writeln(ans);

end.