Codeforces Round #261 (Div. 2)

A. Pashmak and Garden

题意：给你两个正方形的顶点坐标，让你求出另两个顶点的坐标

题解：分情况讨论即可

代码：

var x1,x2,y1,y2:longint;
begin
  readln(x1,y1,x2,y2);
  if x1=x2 then writeln(x1+abs(y2-y1),' ',y1,' ',x1+abs(y2-y1),' ',y2)
  else if y1=y2 then writeln(x1,' ',y1+abs(x1-x2),' ',x2,' ',y1+abs(x1-x2))
  else
   begin
     if abs(x1-x2)<>abs(y1-y2) then writeln('-1')
     else writeln(x1,' ',y2,' ',x2,' ',y1);
   end;
end.        

B. Pashmak and Flowers

题意：给你一个数列，如果从中选2个数，那么这两个数最大差值为多少？有多少种取法可以取到这个最大值？n (2 ≤ n ≤ 2·10⁵).

题解：考场上扫了一遍数列，记录了4个临时变量mx，mi，w1，w2分别表示当前遇到的最大值，最小值，最大值有几个，最小值有几个

        因为没处理好边界，就是刚开始的2个，结果fst了。。。也可以排一下序，直接输出a[n]-a[1]，并且把最大值的个数*最小值的个数输出即可

var n,x,y,w1,w2,t,mx,mi:int64;
    i:longint;
begin
  readln(n);
  mx:=-1;mi:=1000000000;
  for i:=1 to n do
   begin
     read(x);
     if x>mx then begin mx:=x;w2:=1;end
     else if x=mx then inc(w2);
     if x<mi then begin mi:=x;w1:=1;end
     else if x=mi then inc(w1);
   end;
  if mx-mi<>0 then writeln(mx-mi,' ',w1*w2)
  else writeln(0,' ',n*(n-1)>>1);
end.          

D. Pashmak and Parmida's problem

题意：给你一个数列，定义f(l,r,ax)为 满足 l<=k<=r 并且 a[k]=x 的数量，求这个数列中有多少个二元组i,j是的 i<j 并且满足 f(1,i,a[i])>f(j,n,a[j])  n<=10^6  a[i]<=10^9

题解：因为数很大，数的个数很少，我们可以离散化，这样我们就可以类似桶排从前往后和从后往前各扫一遍求出 f(1,i,a[i])和f(j,n,a[j])

        然后有限制条件 i<j,所以我们使用树状数组求前缀和  从后往前扫 扫到 j 的时候 j之后的g[j]都加上了，我们求 f[i-1]-1的前缀和就是i 对答案的贡献

代码：

const maxn=1000000+100;
var a,b,rk,s,f,g,ss:array[0..maxn] of int64;
    i,n,tot:longint;
    ans:int64;
procedure sort(l,r:longint);
 var i,j,x,y:longint;
 begin
 i:=l;j:=r;x:=a[(i+j)>>1];
 repeat
  while a[i]<x do inc(i);
  while a[j]>x do dec(j);
  if i<=j then
   begin
   y:=a[i];a[i]:=a[j];a[j]:=y;
   y:=rk[i];rk[i]:=rk[j];rk[j]:=y;
   inc(i);dec(j);
   end;
 until i>j;
 if i<r then sort(i,r);
 if j>l then sort(l,j);
 end;
procedure init;
 begin
   readln(n);
   for i:=1 to n do begin read(a[i]);rk[i]:=i;end;
   sort(1,n);
 end;
procedure add(x:longint);
 begin
 while x<=n do
  begin
   inc(ss[x]);
   inc(x,x and (-x));
  end;
 end;
function sum(x:longint):int64;
var t:longint;
 begin
 t:=0;
 while x>0 do
   begin
    inc(t,ss[x]);
    dec(x,x and (-x));
   end;
 exit(t);
 end;
procedure main;
 begin
   tot:=0;
   for i:=1 to n do
    begin
      if (i=1) or (a[i]<>a[i-1]) then inc(tot);
      b[rk[i]]:=tot;
    end;
   fillchar(s,sizeof(s),0);
   for i:=1 to n do
    begin
      inc(s[b[i]]);
      f[i]:=s[b[i]];
    end;
   fillchar(s,sizeof(s),0);
   for i:=n downto 1 do
    begin
      inc(s[b[i]]);
      g[i]:=s[b[i]];
    end;
   ans:=0;
   //for i:=1 to n do writeln(f[i],' ',g[i]);
   for i:=n downto 2 do
    begin
      add(g[i]);inc(ans,sum(f[i-1]-1));//writeln(f[i-1]-1,' ',sum(f[i-1]-1));
    end;
   writeln(ans);
 end;

begin
  init;
  main;
end.  

C. Pashmak and Buses

题意：有k辆车，有n个学生，问能否给这n个学生安排d天坐车，是的没有两个同学d天都在同一辆车上。 n, k, d (1 ≤ n, d ≤ 1000; 1 ≤ k ≤ 10⁹).

不会捉。。。

E. Pashmak and Graph

题意：n个点，m条边的无向图，请你找出一条最长的路径（可以有环），使的这条路径上的边权严格递增n, m (2 ≤ n ≤ 3·10⁵; 1 ≤ m ≤ min(n·(n - 1), 3·10⁵))

不会捉。。。