Codeforces Round #203 (Div. 2)

本蒟蒻总是那么渣渣 混在Div.2 哭了……昨天又是……看完题目小搞一下 然后提前睡觉去了……不过我现在貌似都没把题目看完==

 Problem A：很水的一题，原本以为是二分答案，后来发现连二分答案都不要。读入时确定枚举的上界和下界，然后枚举一下结束。

Problem B：一般CF的算法会比我想得简单，所以果断用了dfs。一切都很美好，不过挂在了pretest 10 超时。其实也不是大问题，对于第二个问题一开始用的是字符串储存，但其实字符串操作很耗时间，改成数组，仅在完成第一问后，再次从正解起始处再次dfs出第二问即可。

 Problem C：看起来好像很厉害的样子……其实吧 也不难。最基础的想法，找到炸弹——取炸弹——回家——砰 根据样例分析一下 想法很OK。由于题目里要求路径上不能有炸弹，所以很容易想到画圆，根据以(0,0)为圆心所画圆的半径升序（其实也就是距离），肯定可以保证符合题意，然后根据最初的想法，一个一个处理就好了。需要注意的是，这T一共有35个test，qsort必须随机化，不随机化=pass7 随机化=AC 可见还是随机化的qsort比较牛叉。还有就是如果不用randomize的话，随机出来的数都一样，约为括号内的数的一半，但还是比(l+r) div 2快；如果用的话，程序速度不确定，目前来看比不用的略慢，但也可以A。

还有吧，可以看出 Div.2 的T比较基础，但是T好在可以把一些容易忽视的东西放大。

剩下的等本渣渣看完题再说吧……（不过为什么我觉得有点普及组的感觉=_=）

program ta;
var
 n,m,i,j,up,down:integer;
 a,b:array [1..100] of integer;
 f:boolean;
begin
 readln(n,m);
 up:=maxint;down:=0;
 for i:=1 to n do begin
  read(a[i]);
  if a[i]>down then down:=a[i];
 end;
 readln;
 for i:=1 to m do begin
  read(b[i]);
  if b[i]<up then up:=b[i];
 end;
 if up<down then writeln(-1)
 else begin
  f:=false;
  for i:=down to up-1 do begin
   for j:=1 to n do
    if a[j]*2<=i then begin;writeln(i);f:=true;break;end;
   if f then break;
  end;
  if not(f) then writeln(-1);
 end;
end.

program tb;
var
 ans,max,n,temp,i,j:longint;
 t:array [1..100000] of integer;
 a,c:array [1..100000] of longint;
procedure dfs(x:longint);
begin
 while x<>0 do begin
  if c[x]>1 then exit;
  inc(temp);
  if temp>max then begin;max:=temp;ans:=i;end;
  x:=a[x];
 end;
end;
begin
 readln(n);
 fillchar(c,sizeof(c),0);
 for i:=1 to n do
  read(t[i]);
 readln;
 for i:=1 to n do begin
  read(a[i]);
  if a[i]>0 then inc(c[a[i]]);
 end;
 max:=0;
 for i:=1 to n do
  if t[i]=1 then begin
   temp:=0;
   dfs(i);
  end;
 writeln(max);
 i:=ans;j:=0;
 while (i<>0) and (j<max) do begin
  inc(j);c[j]:=i;
  i:=a[i];
 end;
 for i:=max downto 1 do write(c[i],' ');
 writeln;
end.

program tc;
type
 point=record
  x,y:int64;
  dis:double;
 end;
var
 ans,n,i:longint;
 g:Array [1..100000] of point;
procedure qsort(l,r:longint);
var
 i,j:longint;
 mid:double;
 t:point;
begin
 i:=l;j:=r;mid:=g[l+random(r-l+1)].dis;
 repeat
  while (g[i].dis<mid) do inc(i);
  while (mid<g[j].dis) do dec(j);
  if i<=j then begin
   t:=g[i];g[i]:=g[j];g[j]:=t;
   inc(i);dec(j);
  end;
 until i>j;
 if l<j then qsort(l,j);
 if i<r then qsort(i,r);
end;
begin
 readln(n);
 ans:=0;
 for i:=1 to n do
  with g[i] do begin
   readln(x,y);dis:=sqrt(sqr(x)+sqr(y));
   if (x<>0) and (y<>0) then inc(ans,6) else inc(ans,4);
  end;
 writeln(ans);
 qsort(1,n);
 for i:=1 to n do
  with g[i] do begin
   if x>0 then writeln(1,' ',x,' R')
   else
   if x<0 then writeln(1,' ',-x,' L');
   if y>0 then writeln(1,' ',y,' U')
   else
   if y<0 then writeln(1,' ',-y,' D');
   writeln(2);
   if x>0 then writeln(1,' ',x,' L')
   else
   if x<0 then writeln(1,' ',-x,' R');
   if y>0 then writeln(1,' ',y,' D')
   else
   if y<0 then writeln(1,' ',-y,' U');
   writeln(3);
  end;
end.