两道贪心的交换sequence

题目

首先是xqz的这道排列，记得去年一考排列我就balabala了。。。其实这道只是披着排列的外衣。

我们可以发现，如果把一个数插到前面，我们肯定可以保证它被放到应该放的位置。

那么我们最多移动n-1次，这是最坏情况，可以发现造成这种情况的原因是a的顺序和b的顺序是反的，于是我们可以把问题转化。

视目标序列为一个递增的序列，将下标作为该元素的值，然后在当前序列中将元素赋值为数字对应的下标。

现在问题就变成了在当前序列中找到从第一个元素开始的最长的一个在原序列中是升序的连续的子序列，假设它的长度为k，那么答案即为n-k。

program Neayo;
const
        inf='Permutations.in';
        ouf='Permutations.out';
var
        i,j,k,n:longint;
        ans:int64;
        a,b,c:array[0..200001] of longint;
procedure init;
var same:boolean;
begin
     assign(input,inf);assign(output,ouf);
     reset(input);rewrite(output);
     readln(n);
     same:=true;
     for i:=1 to n do
     read(a[i]);
     for i:=1 to n do
     begin
          read(b[i]);
          c[b[i]]:=i;
          if b[i]<>a[i] then same:=false;
     end;
     if same then writeln(0)
     else begin
               for i:=1 to n do a[i]:=c[a[i]];
               for i:=1 to n-1 do
               if a[i]>a[i+1] then
               begin
                    writeln(n-i);
                    exit;
               end;
     end;
     close(input);
end;
begin
     init;
     close(output);
end.

mhj的这道题，可以想到如果要搜索每次交换的话不知道要换到什么时候。。。

那么如果这样交换的话： 1 2 0 1  →1 0 2 1 →  1 1 2 0 算是移动一个数的代价都是1吧。

于是我们就可以无视移动0的问题。

从结果来说，最终1和2一定在一个点的两边，0可以忽略。

于是我们可以贪心地枚举这个点啦……ans就是最小的代价，代价就是这个点要交换多少2和1到另一边。扫一遍就可以了。

program Neayo;
const
        inf='pour.in';
        ouf='pour.out';
var
        i,j,k,n,time,havenum1,havenum2,restnum1,restnum2,ans,num1,num2:longint;
        a:array[0..1000001]of longint;
procedure init;
begin
     assign(input,inf);assign(output,ouf);
     reset(input);rewrite(output);
     readln(n);
     for i:=1 to n do
     begin
           read(a[i]);
           if a[i]=1 then inc(restnum1);
           if a[i]=2 then inc(restnum2);
     end;
     num1:=restnum1;
     num2:=restnum2;
     close(input);
end;
procedure go;
begin
     ans:=maxlongint;
     for i:=1 to n do
     begin
          if a[i]=1 then
          begin
               inc(havenum1);
               dec(restnum1);
          end;
          if a[i]=2 then
          begin
               inc(havenum2);
               dec(restnum2);
          end;
          if (i>=num1)and(i+num2<=n)and(restnum1+havenum2<ans) then ans:=restnum1+havenum2;
          if (i>=num2)and(i+num1<=n)and(restnum2+havenum1<ans) then ans:=restnum2+havenum1;
     end;
     writeln(ans);
end;
begin
     init;
     go;
     close(output);
end.